@flipdascript
Das "Problem" ist, dass der Timer das Problem ist. Dass eine Prozeduren in 1/1000 Sekunde aufgerufen werden können, ist eher ein urbaner Mythos. Erfahrungsgemäß (ob gefühlt oder tatsächlich) sind es eher 10/1000, womit das Bild pro Sekunde nur um die 100 Pixel verschoben werden kann.
--Schnipp--
Um mein Gefühl zu überprüfen habe ich gerade einen Counter geprogt. Wenn ich da keinen Gedankenfehler habe, dann zählt der Timer wie oft er in der Sekunde aufgerufen wird (benötigt wird ein Timer und ListBox):
Delphi-Quellcode:
uses
DateUtils;
var
S1, S2, T: Word;
procedure TForm1.Timer1Timer(Sender: TObject);
begin
S1 := SecondOfTheHour(Now);
if S1 <> S2 then
begin
ListBox1.Items.Add(IntToStr(T));
T := 0;
end;
Inc(T);
S2 := S1;
end;
procedure TForm1.FormCreate(Sender: TObject);
begin
Timer1.Interval := 1;
end;
Bei mir sind es 64 mal (ist ja auch ein alter Rechner).
Die "Lösung": pro Takt nicht ein Pixel verschieben, sondern mehrere Pixel.