Масштабирование и память

[mutabor]

Нужно сделать масштабирование до больших масштабов (до 1:32). Если просто увеличивать битмап, то очень много памяти жрет. Как это лучше реализовать? Смотрел в других программах, тот же Пэинт, и т.д., у них такого нет, т.е. использование памяти не увеличивается.
Прокрутка у меня с помощью скроллбокса сделана. Изображение на PaintBox вывожу.

[DomiNick]

Как вы выводите-то увеличенную область? Через StretchBlt()?

Хм... А что значить "просто увеличивать битмап"?

[mutabor]

Как вы выводите-то увеличенную область? Через StretchBlt()?

Примерно так и вывожу.

Хм... А что значить "просто увеличивать битмап"?

Увеличивать - значит увеличивать, был 100х100, стал 1000х1000. Скроллбокс в этом случае автоматически прокручивает, но память сильно расходуется. Я вот подумал, если самому координаты определять, и "стречблиттить" (StretchBlt) нужный кусок, обрабатывая ползунки скроллбокса, расход памяти заметно уменьшится, но не будет ли тормозов? Не попробовав не узнаешь, на днях попробую реализовать такую штуку.

[Altera]

Пробуй увеличивать через TCanvas.CopyRect
Там можно маленький участок на большой растянуть. Ну т.е. если просто сделать будет рядом миниатюра изображения, например оригинального размера с курсором области увеличения, а рядом увеличенное изображение.

[DomiNick]

самому координаты определять, и "стречблиттить" (StretchBlt) нужный кусок, обрабатывая ползунки скроллбокса

Вроде всегда так и делают...


Как-то так попробуйте (пример для фиксированного размера 256x256):

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ComCtrls, StdCtrls;

type
  TForm1 = class(TForm)
    ScrollBar1: TScrollBar;
    ScrollBar2: TScrollBar;
    TrackBar1: TTrackBar;
    procedure FormCreate(Sender: TObject);
    procedure FormPaint(Sender: TObject);
    procedure ScrollBar1Change(Sender: TObject);
    procedure ScrollBar2Change(Sender: TObject);
    procedure TrackBar1Change(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var Form1: TForm1; zoom, posX, posY: Integer; pict: TBitmap;

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
var x, y: Integer; pt: ^tagRGBTRIPLE;
begin
Form1.ClientWidth:=290;
form1.ClientHeight:=330;
DoubleBuffered:=True;
ScrollBar1.Min:=0;
ScrollBar1.Width:=256;
ScrollBar1.Height:=17;
ScrollBar1.Left:=0;
ScrollBar1.Top:=256;
ScrollBar2.Kind:=sbVertical;
ScrollBar2.Min:=0;
ScrollBar2.Width:=17;
ScrollBar2.Height:=256;
ScrollBar2.Left:=256;
ScrollBar2.Top:=0;
TrackBar1.Min:=1;
TrackBar1.Max:=32;
TrackBar1.Width:=256;
TrackBar1.Height:=28;
TrackBar1.Left:=0;
TrackBar1.Top:=290;
TrackBar1.Position:=1;
zoom:=1;
posX:=0;
posY:=0;
pict:=TBitmap.Create;
pict.PixelFormat:=pf24bit;
pict.Width:=256;
pict.Height:=256;
for y:=0 to 255 do
      begin
      pt:=pict.ScanLine[y];
      for x:=0 to 255 do
            begin
            pt.rgbtRed:=x+y;
            pt.rgbtGreen:=y*y+x*x;
            pt.rgbtBlue:=x*y;
            inc(pt);
            end;
      end;
end;

procedure TForm1.FormPaint(Sender: TObject);
begin
StretchBlt(Form1.Canvas.Handle, 0, 0, 256, 256, pict.Canvas.Handle, posX, posY, 256 div zoom, 256 div zoom, SRCCOPY);
end;

procedure TForm1.ScrollBar1Change(Sender: TObject);
begin
posX:=ScrollBar1.Position;
Repaint;
end;

procedure TForm1.ScrollBar2Change(Sender: TObject);
begin
posY:=ScrollBar2.Position;
Repaint;
end;

procedure TForm1.TrackBar1Change(Sender: TObject);
begin
zoom:=TrackBar1.Position;
ScrollBar1.Max:=256-(256 div zoom);
ScrollBar2.Max:=256-(256 div zoom);
Repaint;
end;

end.

[BOBAH13]

Сообщение от mutabor

Нужно сделать масштабирование до больших масштабов (до 1:32). Если просто увеличивать битмап, то очень много памяти жрет. Как это лучше реализовать? Смотрел в других программах, тот же Пэинт, и т.д., у них такого нет, т.е. использование памяти не увеличивается.
Прокрутка у меня с помощью скроллбокса сделана. Изображение на PaintBox вывожу.

Откройте photoshop и в нем большое изображение, и начинайте менять размеры окна и скролить увидите как части (квадраты) изображения начнут двигаться. Вот вам и решение. т.е. отрисовывать только видимые части

[mutabor]

Спасибо за примеры, буду пробовать.

BOBAH13, да, есть такое )