ISlideShow

 ISlideShow
   function GetCount: Integer;
   procedure SetItem(Index: Integer; Item: ISlideShowObject);
   function GetItem(Index: Integer): ISlideShowObject;
   function Remove(SlideShowObject: ISlideShowObject): Boolean;
   procedure InsertBefore(BeforeThis, SlideShowObject: ISlideShowObject; Offset: Integer = 0; AsNewTrack: Boolean = False);
   procedure InsertAfter(AfterThis, SlideShowObject: ISlideShowObject; Offset: Integer = 0; AsNewTrack: Boolean = False);
   procedure InsertAsChild(Parent: ISlideShowObject; SlideShowObject: ISlideShowObject; Offset: Integer = 0; AsNewTrack: Boolean = False);
   procedure CopyContent(SrcContainer, DstContainer: ISlideShowObject);
   procedure MoveContent(SrcContainer, DstContainer: ISlideShowObject);
   procedure Replace(const OldObject, NewObject: ISlideShowObject);
   function LoadASO(const Filename: string): ISlideShowObject;
   function GetRatioX: Integer;
   function GetRatioY: Integer;
 end;

 var SlideShow: ISlideShow;

Über ein ISlideShow-Objekt kann eine Diashow bearbeitet werden, d.h. es können Objekte eingefügt, gelöscht, etc. werden.

Über die globale Variable SlideShow steht immer ein SlideShow-Objekt zur Verfügung, dass die aktuelle Diashow referenziert.

Methoden

• Anzahl der Toplevel-Objekte der Diashow

 function GetCount: Integer;

• Seitenverhältnis der Show abfragen (X:Y)

 function GetRatioX: Integer;
 function GetRatioY: Integer;

• Objekte einfügen, Kopieren oder verschieben

 procedure InsertBefore(BeforeThis, SlideShowObject: ISlideShowObject; Offset: Integer = 0; AsNewTrack: Boolean = False);
 procedure InsertAfter(AfterThis, SlideShowObject: ISlideShowObject; Offset: Integer = 0; AsNewTrack: Boolean = False);
 procedure InsertAsChild(Parent: ISlideShowObject; SlideShowObject: ISlideShowObject; Offset: Integer = 0; AsNewTrack: Boolean = False);
 procedure CopyContent(SrcContainer, DstContainer: ISlideShowObject);
 procedure MoveContent(SrcContainer, DstContainer: ISlideShowObject);

• Ein Objekt gegen ein anderes Ersetzen. Das Neue Objekt darf noch nicht Teil der Diashow sein, sondern ist z.B. ein neu erzeugtes oder ein ober LoadASO geladenes.

 procedure Replace(const OldObject, NewObject: ISlideShowObject);

• Eine Toolboxanimation laden.

 function LoadASO(const Filename: string): ISlideShowObject;

Beispiel

• Fügt hinten an die Show ein (leeres) Bildobjekt an

 SlideShow.InsertAfter(nil, CreatePicture);

• Eine ASO-Datei laden, Platzhalterbilder mit richtigen Dateinamen versehen und das aktuelle Objekt der Diashow gegen ASO austauschen.

 procedure OnExpandSlideShow(SlideShowObject: ISlideShowObject);
 begin
   var ASO: ISlideShowObject = LoadASO('meine_animation.aso');
 
   Inject.Filename.From(SlideShowObject).FindByName('image').To(ASO).FindByName('background_image').Execute;
 
   SlideShow.Replace(SlideShowObject, ASO);
 end;