Hi zusammen
So wird die Objectliste erzeugt:
Delphi-Quellcode:
constructor TRogersPdfFrame.Create(AOwner: TComponent);
begin
inherited;
FReportlist := TStringlist.Create;
FPdfList := TDataObjectList<TPDFView>.Create();
FPdfList.OwnsObjects := False;
end;
OwnsObjects hab ich hier absichtlich auf False gesetzt, da sich die enthaltenen Objektebei jedem Dokumentenwechsel zerstören sollen. Sie werden neu erzeugt, wenn ein neues PDF-Dokument angezeigt werden soll.
Deren Deklaration ist eigentlich nichts spektakuläres:
Delphi-Quellcode:
TRogersPdfFrame = class(TFrame)
ScrollBox1: TScrollBox;
ScrollBox2: TScrollBox;
Splitter1: TSplitter;
Pdf1: TPdf;
private
{ Private-Deklarationen }
FPDFView: TPDFView;
FReportList: TStringlist;
FPdfList: TDataObjectList<TPDFView>; // <T: class>
FPdfFileName : String;
procedure WriteReportFile;
procedure SetPdfFileName(Value: String);
procedure Zoom;
procedure Zoom10Percent(PdfPageWidth: Double; PdfPageHeight: Double; PageWidth: Double; PageHeight: Double);
Gruss
Delbor