Lazarus, nic się nie rusza ;)

Witam.
Mam mały problem w Lazarus'ie, grafika nie chce się poruszać.

    for i:=1 to 30 do
     begin
     Shape1.Left:=Shape1.Left+5;
     Shape1.Top:=Shape1.Top+5;
     Shape1.Width:=Shape1.Width-10;
     Shape1.Height:=Shape1.Height+10;
     Sleep(4);
     Update;
     end;    

A Shape nawet nie drgnie o milimetr. Nie wiem czy to wina środowiska, czy ja coś pomyliłem. Jestem stosunkowo "świeży" w temacie Delphi więc proszę o wyrozumiałość.

Teoretycznie kod jest poprawny (pomijając fakt, że jeżeli chcesz tylko poruszać to nie wiem po co modyfikujesz Width i Heigh) Spróbuj przed Sleep dać:

Application.ProcessMessages;

Zamiast:
Shape1.Left:=Shape1.Left+5;
Shape1.Top:=Shape1.Top+5;
Shape1.Width:=Shape1.Width-10;
Shape1.Height:=Shape1.Height+10;
możesz napisać:
with Shape1 do SetBounds(Left+5,Top+5,Width-10,Height+10);
Zrobią się wszystkie zmiany naraz.

zombiezombie napisał(a)

     Sleep(4);

250 klatek na sekundę? masz dobre oko...

@kAzek, Width i Heigh zmodyfikowałem na końcu w akcji "ostatecznej desperacji", żeby zobaczyć jaki kol wiek ruch w okienku. Tak samo zmiana położenia była trochę inna w oryginale, ale jak nie wychodziło zacząłem testować, kombinować na "a może się teraz ruszy" ;)
Application.ProcessMessages; Nie pomogło Shape ani drgnie.
@ŁF, nad płynnością i efektywnością popracuje jak zacznie się coś dziać.
Jeszcze jakieś pomysły? Ja przeglądam lazarusowe wiki, może tam natrafię na pomocy tip.

u mnie działa. zobacz w załączniku