Kamerafahrt über ein Bild realisieren

[Popov]

@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.