Рисование в OnPaint

[fredwriter]

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

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, но мне нужно именно сохранять то, что нарисовано ранее. И по нажатии на кнопку дорисовывать.

[<- DelpHIFanat ->]

Честно говоря, не совсем понял задачу, но, вот написал, чтоб сохранялось в Bitmap и рисовалось.

procedure TForm1.FormCreate(Sender: TObject);
begin
  a := 10;
  b := 10;
  c := 100;
  d := 100;

  Picture_Ozero:=TBitmap.Create;
  Picture_Ozero.Canvas.Pen.Style:=psClear;
  Picture_Ozero.Canvas.Brush.Color:=clRed;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  Picture_Ozero.Width:=c-a;
  Picture_Ozero.Height:=d-b;
  Picture_Ozero.Canvas.FillRect(Rect(0, 0, c-a, d-b));

  c := c + 10;
  Form1.Repaint;
end;

procedure TForm1.FormPaint(Sender: TObject);
begin
  Form1.Canvas.Draw(a, b, Picture_Ozero);
end;

procedure TForm1.FormDestroy(Sender: TObject);
begin
  Picture_Ozero.Free;
end;

[Stilet]

и вывести и так сохранять всё нарисованное ранее.

Ты делаешь свою рисовалку? Мол народ будет мышкой рисовать ченить, прога сохранять и открывать сохраненное?
Ибо если нет то смысла в сохранении никакого - все равно при подгрузке из файла ты проводишь отрисовку того же кубика.

[fredwriter]

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

Ты делаешь свою рисовалку?

Нет, я не делаю рисовалку, этот код я привёл для примера, что бы объяснить на нём, что мне нужно: рисую что-то на канве, сохраняю куда-то. В OnPaint рисую то, что сохранил, и еще дорисовываю дальше. Потом опять, всё что нарисовал в OnPaint, сохраняю куда-то, в OnPaint рисую это и опять дорисовываю дальше, что-бы в OnPaint не повторять по алгоритму всю прорисовку, а рисовать из сохранённого, и лишь дорисовывать. А в коде, который я привел всё, что нарисовано раньше - стирается.

при подгрузке из файла ты проводишь отрисовку того же кубика.

Мне нужно сохранить всё, что я уже нарисовал, это будет не кубик, а уже прямоугольник, и этот прямоугольник будет расти, типа след оставляет.

[viron]

Может вот эта процедура тебе нужна?
Form1.Canvas.CopyRect(Dest: TRect; SourceCanvas: TCanvas; Source: TRect);
Копирует кусок (Source) из SourceCanvas на форму в координаты Dest