Verständnisfrage Vorwärtsdeklaration

[Delbor]

Hi zusammen

Folgende Deklaration im PDFiumFrame:

Delphi-Quellcode:

  TPDFiumFrame = class(TFrame)
  private
//  protected
    { Déclarations privées }
    type
      // One point is 1/72 inch (around 0.3528 mm).    
      TPointsSize = record
        cx : Double;
        cy : Double;
      end;
 
      TRectD = record
        Left   : Double;
        Top    : Double;
        Right  : Double;
        Bottom : Double;
      end;

      TPDFPage = class;     // Sollte die Vorwärtsdeklaration sein
 
//  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
//  protected
    FDocument : HPDFDocument;
    FError    : Integer;
    FPageCount: Integer;
    FPageSize : TArray<TPointsSize>;
...

Die Deklaration der Klasse TPDFPage habe ich in den public-Abschnitt verschoben, um von der Mainform aus darauf zugrreifen zu können. Da jedoch einige Felder des Frames vom Typ dieser Klasse sind, muss iich diese per Vorwärtsdeklaration bekannt machen, bevor die entsprechenden Felder eingeführt werden. Das Problem ist nur: Delphi meint:

Zitat:

[dcc32 Fehler] PDFium.Frame.pas(48): E2086 Typ 'TPDFiumFrame.TPDFPage' ist nicht vollständig definiert

Ich hab schonmal versucht, diese Deklaration in den public-Teil zu verschieben, wasaber zu sehr seltsamen Konstrukten führte - im Anhang zeigt ein Jpeg, wie das ausgesehen hat. Man beachte Zeile 5 und folgende unterhalb der blau markierten Zeile.
Das Embarcadero-Wiki hat mir dann verraten, das ich die Vorwärzsdeklaration mit einem Semikolon hätte abschliessen müssen.
Was nun diesmal der Grund für Delphis Meckerei ist, hab ich schlicht keine Ahnung.

Das Jpeg 'Vorwärtsdeklaration zeigt, wo ich diese anbringen wollte. Wenn ich ein end darunter schreibe, ist der Bezeichner TPDFPage unbekannt, ohne dieses end ist die Deklaration unvollständig...

Was, zum Kuckuck, mache ich falsch? Nach dieser Seite offenbar nichts. Und trotzdem meckert Delphi!

Gruss
Delbor

[mischerr]

Hallo,

ich glaube mich zu erinnern das die Vorwärtsdeklaration der Klasse im selben Type-Abschnitt wie die endgültige Klassendeklaration stehen muss.
Eine Mischung Public/Private dürfte daher nicht funktionieren.

[Delbor]

Hi mischerr

Zitat:

Eine Mischung Public/Private dürfte daher nicht funktionieren.

Das ist der Punkt, an dem ich die Emba-OnlineHelp nicht richtig verstanden habe.

Gruss
Delbor

[himitsu]

Ich habe auch nie probiert, ob Forward-Deklarationen als Sub-Class möglich sind. (innerhalb einer anderen Klasse)

Aber sonst stimmt die bereits genannte Aussage.
Forward-Deklarationen sind nur innerhalb des selben Type-Blocks möglich, also auch nur innerhalb der selben Unit.

Wo ist hier überhaupt TPDFPage eigentlich deklariert?
Ich seh nur den Forward.


Ich kenn sonst nur eine Ausnahme.
Deklaration von Pointer-Typen, da kann die Deklaration des Pointers nach oder auch vor dem eigentlich Typ stehen, aber davor auch nur innerhalb des selben Type-Blocks.

[Delbor]

Hi Himitsu

Nachfolgend die ersten Deklarationszeilen des Frames:

Delphi-Quellcode:

  TPDFiumFrame = class(TFrame)      
  private
//  protected
    { Déclarations privées }
    type
      // One point is 1/72 inch (around 0.3528 mm).          
      
      TPointsSize = record
        cx : Double;
        cy : Double;
      end;
 
      TRectD = record
        Left   : Double;
        Top    : Double;
        Right  : Double;
        Bottom : Double;
      end;
 
  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
//  protected
    FDocument : HPDFDocument;
    FError    : Integer;
    FPageCount: Integer;
    FPageSize : TArray<TPointsSize>;
    FTotalSize: TPointsSize;
    FPages    : TList;
    FReload   : Boolean;
    FPageIndex: Integer;
...
    FCurPage  : TPDFPage;
    FSelPage  : TPDFPage;
    FSelStart : Integer;
    FSelBmp   : TBitmap;
    FInvalide : Boolean;
    FReportList: TStringlist;
    FGetPageAt : Integer;
  {$IFDEF TRACK_CURSOR}
    FCharIndex: Integer;
    FCharBox  : TRectD;
  {$ENDIF}
    procedure SetDocument(Value: HPDFDocument);
    procedure SetPageCount(Value: Integer);
...
    property _Document: HPDFDocument read FDocument write SetDocument;
    procedure ClearPages;
    function GetPage(PageIndex: Integer): TPDFPage;
    function GetPageAt(const p: TPoint): TPDFPage;
    procedure LoadVisiblePages;                                                                                       //<===
    procedure WMEraseBkGnd(var Msg: TMessage); message WM_ERASEBKGND;
    procedure WMPaint(var Msg: TWMPaint); message WM_PAINT;
    procedure WMHScroll(var Message: TWMHScroll); message WM_HSCROLL;
    procedure WMVScroll(var Message: TWMVScroll); message WM_VSCROLL;
  protected
    procedure PaintWindow(DC: HDC); override;                                                         //<===
    procedure Resize; override;
    procedure MouseDown(Button: TMouseButton; Shift: TShiftState;
      X, Y: Integer); override;
    procedure MouseUp(Button: TMouseButton; Shift: TShiftState;
      X, Y: Integer); override;
    function DoMouseWheel(Shift: TShiftState; WheelDelta: Integer;
      MousePos: TPoint): Boolean; override;
    procedure MouseMove(Shift: TShiftState; X, Y: Integer); override;
    procedure SetPageIndex(Value : Integer);
  public
    { Déclarations publiques }
    constructor Create(AOwner: TComponent); override;
    destructor Destroy; override;

In dem als Navigationsbar dienenden Frame werden immer mehrere Seiten angezeigt - im Normalfall, wenn das Fenster die selbe Grösse wie im Entwurfsmodus hat, etwa drei. Diese Seiten darzustellen, ist LoadVisiblePages zuständig.Diese Prozedur wird von Paintwindow aufgerufen, die die Liste FPages(TList) durchläüft und in diesem Block die Seite rendern lässt:

Delphi-Quellcode:

    if Page.Visible > 0 then
    begin
      FillRect(DC, Page.Rect, WHITE);
      SynpdfMain.Memo1.Lines.Add('Page.Visible > 0 / ' + IntToStr(Index));
      FPDF_RenderPage(DC, Page.Handle, Page.Rect.Left, Page.Rect.Top, Page.Rect.Width, Page.Rect.Height, 0, 0);
      Page.DrawSelection(DC, SelDC, Blend, Client);
    end;

Das heisst nichts anderes, als: ich muss nur den Index der Seite wissen, auf die ich geklickt habe. Und da sehe ich das Problem, zumindest ohne Zugriff auf die Klasse TPDFPage. Übrigens: diese Klasse gibt es so nur im PDFiumFrame - ausserhalb ist auch eine Klasse diesen Namens bekannt, die aber von TPDFDictonary abgeleitet ist...


Gruss
Delbor

[DeddyH]

Wo findet man denn die Original-Unit? Ich habe so das Gefühl, dass Du etwas zu implementieren versuchst, was Du gar nicht brauchst.

[Delbor]

Hi DeddyH

Das Original findet sich hier (SynPDF.zip).
Das ding ist zur Anzeige eigentlich voll funktionsfähig - nur, dass eben keine Nvigationsbar vvorhanden ist, wie man das von gängigen PDF-Programmen kennt.

Gruss
Delbor

[Delphi.Narium]

(ungetestet) eher so:

Delphi-Quellcode:

type
  // One point is 1/72 inch (around 0.3528 mm).
  TPointsSize = record
    cx : Double;
    cy : Double;
  end;

  TRectD = record
    Left : Double;
    Top : Double;
    Right : Double;
    Bottom : Double;
  end;

  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;

  TPDFiumFrame = class(TFrame)
  private
    FDocument : HPDFDocument;
    FError : Integer;
    FPageCount: Integer;
    FPageSize : TArray<TPointsSize>;
    FTotalSize: TPointsSize;
    FPages : TList;
    FReload : Boolean;
    FPageIndex: Integer;
    FCurPage : TPDFPage;
    FSelPage : TPDFPage;
    FSelStart : Integer;
    FSelBmp : TBitmap;
    FInvalide : Boolean;
    FReportList: TStringlist;
    FGetPageAt : Integer;
  {$IFDEF TRACK_CURSOR}
    FCharIndex: Integer;
    FCharBox : TRectD;
  {$ENDIF}
    procedure SetDocument(Value: HPDFDocument);
    procedure SetPageCount(Value: Integer);
...
    property _Document: HPDFDocument read FDocument write SetDocument;
    procedure ClearPages;
    function GetPage(PageIndex: Integer): TPDFPage;
    function GetPageAt(const p: TPoint): TPDFPage;
    procedure LoadVisiblePages; //<===
    procedure WMEraseBkGnd(var Msg: TMessage); message WM_ERASEBKGND;
    procedure WMPaint(var Msg: TWMPaint); message WM_PAINT;
    procedure WMHScroll(var Message: TWMHScroll); message WM_HSCROLL;
    procedure WMVScroll(var Message: TWMVScroll); message WM_VSCROLL;
  protected
    procedure PaintWindow(DC: HDC); override; //<===
    procedure Resize; override;
    procedure MouseDown(Button: TMouseButton; Shift: TShiftState;
      X, Y: Integer); override;
    procedure MouseUp(Button: TMouseButton; Shift: TShiftState;
      X, Y: Integer); override;
    function DoMouseWheel(Shift: TShiftState; WheelDelta: Integer;
      MousePos: TPoint): Boolean; override;
    procedure MouseMove(Shift: TShiftState; X, Y: Integer); override;
    procedure SetPageIndex(Value : Integer);
  public
    { Déclarations publiques }
    constructor Create(AOwner: TComponent); override;
    destructor Destroy; override;

geht nicht:

Delphi-Quellcode:

type
  TForm1 = class(TForm)
  private
    { Private-Deklarationen }
    type 
      tx = class
      private
      f : Integer;
    end;
    fx : tx;
  public
    { Public-Deklarationen }
  end;

muss so sein:

Delphi-Quellcode:

type 
  tx = class
  private
  f : Integer;
end;

type
  TForm1 = class(TForm)
  private
    { Private-Deklarationen }
    fx : tx;
  public
    { Public-Deklarationen }
  end;

[hoika]

Hallo,
ich mache mal lieber ein einfacheres Bsp.

Delphi-Quellcode:

type
  TClass2 = class;  // Forward

  TClass1 = class
    Class2: TClass2;
  end;

  TClass2 = class
    Class1: TClass1;
  end;

Ich kann in TClass1 also schon TClass2 benutzen, obwohl TClass2 nicht vollständig definiert ist.
Und wie es schon bereits gesagt wurde, muss das alles im gleichen type sein.

[DeddyH]

Delphi-Quellcode:

type
  TFormTest = class(TForm)
  private
    { Private-Deklarationen }
    type
      TDings = class
      private
        FBums: integer;
      public
        procedure Wuppdi;
        property Bums: integer read FBums write FBums;
      end;
  private
    FDings: TDings;
  public
    { Public-Deklarationen }
  end;

Die Klassenvervollständigung ergibt dann folgende Methode:

Delphi-Quellcode:

procedure TFormTest.TDings.Wuppdi;
begin

end;

Der Sinn dahinter ist, dass man die Nested Klasse lediglich innerhalb der Oberklasse benötigt und auch nur dort verwenden soll. Im Übrigen habe ich im verlinkten Archiv nirgends eine Klasse TPDFiumFrame finden können, daher kann ich auch nicht mehr dazu sagen.