Hi TBx
Sorry, dass ich erst jetzt antworte.. Ich hab mich übers Wochende noch etwas durchs Beispielprogramm gewühlt - dasDing hat in zehn Units doch gute 100 000 Zeilen Quelltext. Wieviele Kommentarzeilen davon allerdings noch abgezogen werden müssen, ist mir nicht bekannt, aber es könnte gut und gerne etwa halb soviel sein.
Nun hab ich das mit der public-Klasse mal versucht. Es schlägt fehl, weil da das Wort Class gar nicht bekannt ist - weswegen, entzieht sich meiner Kenntnis.
Laut dem Embarcadoro-Wiki sollte folgende Deklaraion möglich sein:
Delphi-Quellcode:
TPDFiumFrame =
class(TFrame)
TPDFPage =
class
Index : Integer;
Handle : HPDFPage;
Top : Double;
Rect : TRect;
Text : HPDFTextPage;
NoText : Boolean;
Visible : Integer;
SelStart : Integer;
SelStop : Integer;
Selection: TArray<TRectD>;
destructor Destroy;
override;
function HasText: Boolean;
function CharIndex(x, y, distance: Integer): Integer;
function CharCount: Integer;
function Select(Start: Integer): Boolean;
function SelectTo(Stop: Integer): Boolean;
function ClearSelection: Boolean;
procedure DrawSelection(
DC, BMP: HDC;
const Blend: TBlendFunction;
const Client: TRect);
end;
private
{ Déclarations privées }
Aber auch hier wird mir das Wort class als unbekannt markiert.
Gruss
Delbor