Canvas.CopyRect DELPHI Что и как...

[08ekhiv1]

Помогите пожайлуста разобраться что такое CopyRect и как с момощью его перемешать объекты, сохраняя неизменным фон...

[SERG1980]

CopyRect(Dest:Trect;Canvas:TCanvas; Source:TRect) Выполняет копирование прямоугольника Source из канвы Canvas в прямоугольник Dest в области самого объекта
Вот пример: копируем области из битмапа и вставляем на канву формы

procedure TForm1.Button1Click(Sender: TObject);
var BSource:Tbitmap;
    i,j:integer;
    Rect1:Trect;
begin
  BSource:=TBitMap.Create;
  BSource.LoadFromFile('tqfp.bmp');
  for i:=0 to 9 do
   for j:=0 to 9 do
    begin
     sleep(100);
     application.ProcessMessages;
     Rect1:=Bounds(i*30,j*30,30,30);//вот эту строку
     form1.Canvas.CopyRect(Rect1,BSource.Canvas,Rect1);
    end;
    BSource.Free;
end;