Quantcast
Channel: Embarcadero Community - Embarcadero Community
Viewing all articles
Browse latest Browse all 3212

page error in taskmanager ar increase up by moving Image

$
0
0

 

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;

 


Viewing all articles
Browse latest Browse all 3212

Trending Articles