Forum: Object-Pascal / Delphi-Language
Delphi
by Delbor,
8. Dez 2017
Hi zusammen
Die Lösung liegt darin, dem TPDFiumFrame ein Property zu verpassen:
property PageAt: TPDFPage read GetPageAt;
Wie ich nun den PDFiumFrame2 dazu bringe, die Seite mit dem aus PDFiumFrame1 erhaltenen Index anzuzeigen, muss ich erst noch herausfinden. Es gibt zwar eine Funktion (GetPage), die das tut. Aber die liefert an den Aufrufer (PDFiumFrame1) zurück, nicht gewissermassen...
Forum: Object-Pascal / Delphi-Language
Delphi
by Delbor,
7. Dez 2017
Hi DeddyH
Da TPDFPage privat deklariert ist, habe ich von der Mainform keinen Zugriff darauf, kann also in der Mainform keine Klassenvariable einführen, die mit TPDFPage kompatibel ist.
mit deinem Tip ist das allerdings kein Problem. Die Deklaration in TPDFiumFrame:
procedure MouseMove(Shift: TShiftState; X, Y: Integer); override;
procedure SetPageIndex(Value : Integer);
public
...
Forum: Object-Pascal / Delphi-Language
Delphi
by Delbor,
6. Dez 2017
Hi DeddyH
Sorry, wenn ich erst jetzt antworte - nach deinem letzten Post hab ich festgestellt, dass meine Anwendung doch auf meinem Mist gewachsen ist. Ich benutze dabei gewissermassen als Basis dieses Beispiel.
Leider kann ich dir nur diesen Link geben. Die Datei, die da als Zip-Datei herunterladbar ist, hat mehr als 5MB und kann daher nicht als Anhang hier gepostet werden.
Gruss
Delbor
Forum: Object-Pascal / Delphi-Language
Delphi
by Delbor,
6. Dez 2017
Hi zusammen
Ich habe die Deklaration nochmal etwas abgeändert, so dass es für mich 'schon eher nachDelphi aussieht':
uses
...
const PAGE_MARGIN = 5; // pixels
type
TZoomMode = (zmCustom,zmActualSize, zmPageLevel, zmPageWidth);
Forum: Object-Pascal / Delphi-Language
Delphi
by Delbor,
6. Dez 2017
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
Forum: Object-Pascal / Delphi-Language
Delphi
by Delbor,
6. Dez 2017
Hi Himitsu
Nachfolgend die ersten Deklarationszeilen des Frames:
TPDFiumFrame = class(TFrame)
private
// protected
{ Déclarations privées }
type
// One point is 1/72 inch (around 0.3528 mm).
Forum: Object-Pascal / Delphi-Language
Delphi
by Delbor,
6. Dez 2017
Hi mischerr
Das ist der Punkt, an dem ich die Emba-OnlineHelp nicht richtig verstanden habe.
Gruss
Delbor
Forum: Object-Pascal / Delphi-Language
Delphi
by Delbor,
6. Dez 2017
Hi zusammen
Folgende Deklaration im PDFiumFrame:
TPDFiumFrame = class(TFrame)
private
// protected
{ Déclarations privées }
type
// One point is 1/72 inch (around 0.3528 mm).
TPointsSize = record