DiaShow-Objekt

Das DiaShow-Objekt ist die Basis-Klasse für alle Objekte, die in der DiaShow Verwendung finden.

 ISlideShowObject
   procedure SetItem(Index: Integer; Item: ISlideShowObject);
   function GetItem(Index: Integer): ISlideShowObject;
   function GetCount: Integer;
   function GetParent: ISlideShowObject;
   function Text: IText;
   function GetDuration: Integer;
   procedure SetDuration(const Value: Integer);
   function GetOffset: Integer;
   procedure SetOffset(const Value: Integer);
   function Clone: ISlideShowObject;
   function CloneWithChildren: ISlideShowObject;
   procedure SetValueAsString(const Key: String; const Value: String);
   function GetValueAsString(const Key: String): String;
   procedure SetValueAsSingle(const Key: String; const Value: Single);
   function GetValueAsSingle(const Key: String): Single;
   procedure SetValueAsInteger(const Key: String; const Value: Integer);
   function GetValueAsInteger(const Key: String): Integer;
   procedure SetValueAsBoolean(const Key: String; const Value: Boolean);
   function GetValueAsBoolean(const Key: String): Boolean;
   function NameIs(const AName: string): Boolean;
   property Name: string;
 end;

Methoden

• Getter und Setter für Kindelemente. Alle Objekte können andere SlideShowObjekte als Kinder halten. Als herausragendes Beispiel kann man das Kapitel nennen, welches Bilder in sich vereint. Generell geht das aber mit allen anderen Objekten genauso.

 procedure InsertItem(Index: Integer; Item: ISlideShowObject);
 procedure AddItem(Item: ISlideShowObject);
 procedure SetItem(Index: Integer; Item: ISlideShowObject);
 function GetItem(Index: Integer): ISlideShowObject;

• Gibt die Anzahl der Kindelemente zurück

 function GetCount: Integer;

• Gibt das Elternelement zurück

 function GetParent: ISlideShowObject;

• Ein SSO kann Text enthalten und ist vom Typ IText

 function Text: IText;

• Abspiel-/Anzeigedauer eines Objektes in Millisekunden. Achtung, sollte nur in Ausnahmefällen geändert werden!

 function GetDuration: Integer;
 procedure SetDuration(const Value: Integer);

• Der Offset des Objektes ist der Abstand zum Vorgänger-Objekt in Millisekunden

 function GetOffset: Integer;
 procedure SetOffset(const Value: Integer);

• Kopiert das SSO ohne bzw. mit dessen Kindelemente(n)

 function Clone: ISlideShowObject;
 function CloneWithChildren: ISlideShowObject;

• Getter und Setter für GUI-Werte. Der Key gibt an, welches GUI-Element gemeint ist, Value setzt den entsprechenden Wert. Der Datentyp von Value ist dabei von Komponente zu Komponente unterschiedlich.

 procedure SetValueAsString(const Key: String; const Value: String);
 function GetValueAsString(const Key: String): String;

 procedure SetValueAsSingle(const Key: String; const Value: Single);
 function GetValueAsSingle(const Key: String): Single;

 procedure SetValueAsInteger(const Key: String; const Value: Integer);
 function GetValueAsInteger(const Key: String): Integer;

 procedure SetValueAsBoolean(const Key: String; const Value: Boolean);
 function GetValueAsBoolean(const Key: String): Boolean;

• Objektbenennung: Objekte können im Hauptprogramm einen Zugriffsnamen bekommen. Dieser kann über das "Name"-Propery abgerufen werden.

 property Name: string;

• Liefert True zurück, wenn der Name des Objekts AName entspricht. Dabei wird Groß-/Kleinschreibung vernachlässigt.

 function NameIs(const AName: string): Boolean;

Verwendung

Ein ISlideShowObject kommt niemals in reiner Form vor, sondern immer als spezielle Variante (z.B. ein Bild oder Text). Es ist die Basis für alle Objekte, die in der DiaShow Verwendung finden. Dementsprechenden leiten alle anderen von ihm ab und können in eine ISlideShowObject umgewandelt (gecastet) werden:

 var Pic: IPicture;
 var SSO: ISlideShowObject;
 Pic := CreatePicture;
 SSO := Pic as ISlideShowObject; // ein Bild lässt sich in das allgemeinere ISlideShowObject casten