Einzelnen Beitrag anzeigen

Delbor

Registriert seit: 8. Okt 2006
Ort: St.Gallen/Schweiz
1.186 Beiträge
 
Delphi 11 Alexandria
 
#11

AW: Privat deklarierte Klasse ableiten

  Alt 20. Nov 2017, 12:36
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
Roger
Man muss und kann nicht alles wissen - man muss nur wissen, wo es steht.
Frei nach Albert Einstein
http://roase.ch
  Mit Zitat antworten Zitat