Hi,
ha have write a program for Windows 32 under Delphi 10 Seattle.
On the Main Window (TForm) is a full screen image (TImage) and on it a small image (TImage).
Now I move the small image on the big image every 1 second with a ttimer.
By moving the small image, the page error in taskmanager ar increae up. Why?
on start:
Image6.Picture.LoadFromFilePfad+'\BigBild.bmp');
Image5.Picture.LoadFromFilePfad+'\Bild.bmp');
In Timer:
Image5.Top := Image5.Top-8;
Image5.Left := Image5.Left-25;
if Image5.Left<((Image6.Left-20)+(Image6.Width div 2)) then begin
Image5.Top := (Label3.Top-50)+Label3.Height+(Image6.Height div 2)+40-(Image5.Height div 2);
Image5.Left := Image6.Left+Image6.Width+15;
end;