Hi zusammen
Ich habe die Deklaration nochmal etwas abgeändert, so dass es für mich 'schon eher nachDelphi aussieht':
Delphi-Quellcode:
uses
...
const PAGE_MARGIN = 5;
// pixels
type
TZoomMode = (zmCustom,zmActualSize, zmPageLevel, zmPageWidth);
TPointsSize =
record
...
end;
TRectD =
record
...
end;
TPDFPage =
class
Index : Integer;
Handle : HPDFPage;
...
end;
TPDFiumFrame =
class(TFrame)
private
{ Déclarations privées }
{Hier waren TPointsSize, TRectD und TPDFPage deklarirt}
private
FDocument : HPDFDocument;
...
protected
...
public
{ Déclarations publiques }
...
end;
Das Resultat gleich bei der ersten Prozedur nach 'Implementation:
Delphi-Quellcode:
function TPDFiumFrame.TPDFPage.HasText: Boolean;
begin
....
end;
Dass hier die Unterklasse direkt und nicht etwa eine Instanz angesprochen wird, fiel mir erst jetzt auf.
Instanzen gibt es erst später, wenn das Programm schon lange läuft und ein Dokument geladen ist.
Gruss
Delbor