Рисование в OnPaint

@fredwriter · Регистрация: 17.10.2009

Author24 — интернет-сервис помощи студентам

Здравствуйте, перед вопросом, выложу, например, вот такой код:

Delphi

var
  Form1: TForm1;
  Rect_Ozero, P_Rect_Ozero: TRect;
  Picture_Ozero: TBitmap;
  a, b, c, d: integer;
 
procedure TForm1.FormPaint(Sender: TObject);
begin
  Form1.Canvas.Brush.Color := clred;
  Rect_Ozero := Rect(a, b, c, d);
  Form1.Canvas.FillRect(Rect_Ozero);
 
end;
 
procedure TForm1.Button1Click(Sender: TObject);
begin
  a := a + 10;
  c := c + 10;
  Rorm1.Repaint;
end;
 
procedure TForm1.FormCreate(Sender: TObject);
begin
  a := 10;
  b := 10;
  c := 100;
  d := 100;
end;

Как сделать, что бы нарисованный ранее кубик не стирался, но что бы не рисовать его в OnPaint по старым координатам заново, а сохранить где-нибудь, например, в Bitmap'е каком-нибудь, и вывести и так сохранять всё нарисованное ранее.
Как перерисовывать по тому-же алгоритму в OnPaint я знаю, нужно просто рисовать кубик меняя координаты в цикле, и при нажатии на кнопку, просто давать новую, измененную N, но мне нужно именно сохранять то, что нарисовано ранее. И по нажатии на кнопку дорисовывать.

	04.12.2011, 15:54