Danke Leute! Soweit klappt alles, leider verstehe ich jetzt etwas beim timer nicht...
(ich hoffe, das darf noch in diesen Thread)
Also:
Der Timer soll 2 Funktionen haben:
1: Es sollen pro Minute 100 Bilder angezeigt werden.
2: Es sollen optional diese Bilder "eingeblendet werden" also immer weiter vergrößert werden
Hierzu habe ich folgendes überlegt:
Ich benutzte einen Timer mit dem Intervall "1" also eine Milisekunde
Zunächst wird die Dauer ermittelt, wie lange ein Bild angezeigt werden soll:
Delphi-Quellcode:
bilddauer:=60/strtoint(edit1.text);
bilddauer:=round(bilddauer*1000);
Bild dauer hat also nun die Zeit in Milisekunden gespeichert.
In dem Timer wird nun eine Variable hochgezählt:
Delphi-Quellcode:
inc(sleeper);
If sleeper=bilddauer then begin
inc(nummer);
image1.Picture.Graphic :=form1.bild[nummer];
end;
Ich könnte natürlich das Interval des Timers direkt auf Bilddauer setzten, allerdings habe ich dann ein problem mit dem einblenden von den bildern... dieses Einblenden soll genau 2*bilddauer entsprechen, das bild wird mit 50 Schritten immer weiter vergrößert:
Delphi-Quellcode:
if scrollen=True then
begin
image1.left:=round(image1.Left-form2.Width /strtoint(form1.edit3.text));
image1.Top:=round(image1.Top-form2.height /strtoint(form1.edit3.text));
image1.width:=round(image1.width+form2.Width / strtoint(form1.edit3.text) *2);
image1.Height:=round(image1.Height+form2.Height / strtoint(form1.edit3.text)*2);
image1.refresh;
end;
Allerdings habe ich bemerkt, dass der Timer nun viel zu langsam arbeitet, auch wenn bilder nicht vergrößert werden...jemand ne ahnung warum?