-
Б (22.11.08 09:34) [0]Удалено модератором
Примечание: http://www.delphimaster.ru/forums.shtml#rule Рекомендуется: п.2 -
Vetal (22.11.08 17:18) [1]Рисовать на отдельном Bitmap'е, а затем его выводить.
-
Б (23.11.08 14:06) [2]Можно поподробнее... с кодом.
-
Vetal (23.11.08 22:05) [3]TMyControl = class(TGraphicControl)
protected
procedure Paint; override;
end;
TMyControl.Paint;
var
Bmp: TBitmap;
begin
Bmp := TBitmap.Create;
try
Bmp.Width := Width;
Bmp.Height := Height;
рисуем на битмапе
...
выводим
BitBlt(Canvas.Handle, 0, 0, Width, Height, Bmp.Canvas.Handle, 0, 0, SRCCOPY);
finally
Bmp.Free;
end;
end;
Битмап можно хранить и отдельно.