Zweck
Mit Hilfe der Komponente TAdapterRTF lässt sich das Vorlagensystem bedienen und steuern.
Dabei ist es möglich die Vorlagenliste zu starten, Vorlagen direkt zu laden, Vorlagen zu drucken,
RTF Editor ohne Vorlage zu öffnen usw.
Einfaches Beispiel
Folgendes Beispiel soll die Funktionsweise des TAdapterRTF's verdeutlichen.
procedure openTemplates;
var
aRTF: TAdapterRTF;
begin
aRTF := TAdapterRTF.Create;
try
aRTF.SourceComp := 'MenuDocVorlagen'; // An welchem Eintrag hängen die Vorlagen
aRTF.SourceID := self.DI_ID; // An welcher ID hängen die Vorlagen
aRTF.CO_ID := self.CO_ID; // Den Mandanten, falls Vorlagen Mandantenbezogen erstellt wurden
aRTF.DefaultStorageType := 'Einheitenablage'; // Standard Ablagetyp bei Anlage einer neuen Vorlage
aRTF.AddPrimaryDataSet(TableEinheit, 'Einheiten Daten', 'Einheitenablage', Grideinheit.SelectedRows);
aRTF.AddDataSet(TableMieter, 'Mieter bzw. Eigentümer Daten', 'Einheitenablage', GridMieter.SelectedRows);
aRTF.TemplateListdlg; //Vorlagensystem aufrufen
finally
aRTF.Free;
end;
end;