ich brauche immer mal wieder eine Art Zeit-Objekt: Ein Objekt, dass über einen bestimmten Zeitraum hinweg einfach die Zeit mitzählt.
Wenn das also eingefügt ist, soll es je nach Einstellung also wie eine Stoppuhr mitlaufen, oder vllt. Frames zählen.
Habe das momentan über ein Skript gelöst, dass alle Zehntelsekunden über die eingestellte Dauer ein neues Textobjekt generiert. Leider kann man das nicht auf hundertstel oder gar Frames erweitern, da dann einfach viel zu viele Objekte berechnet werden:
Code: Alles auswählen
procedure OnExpandSlideShow(SlideShowObject: ISlideShowObject)
begin
var originTextObject = SlideShowObject.GetItem(0) as IText;
var duration = (originTextObject as ISlideShowObject).Duration;
(originTextObject as ISlideShowObject).setDuration(100);
originTextObject.setText("0,0");
var i: Integer;
i := 100;
while i < duration do
begin
var newText = (originTextObject as ISlideShowObject).Clone as IText;
newText.setText(FloatToStr(i / 1000));
SlideShow.InsertAsChild(SlideShowObject, newText as ISlideShowObject, 0, false);
i := i + 100;
end;
end;
Jetzt wo ich das schreibe, fällt mir auf, man könnte auch alle Intervalle einfach den Text ändern, anstelle ein neues Objekt zu erstellen... Oder ging das nicht... Ich bin nicht mehr so drin im Code
Gruß Mark L.