PopupMenu - TPdfView

Dieser API-Eintrag behält Bezeichner, Signaturen, Codeblöcke und PDF-Begriffe in ihrer Originalform.

Komponente: TPdfView · Unit: PDFium

Verknüpft ein TPopupMenu mit dem PDF-Viewer, damit ein Rechtsklick auf eine Seite ein Kontextmenü anzeigt

Syntax

property PopupMenu: TPopupMenu; // published, inherited from TControl

Beschreibung

Wenn PopupMenu gesetzt wird, ist der Viewer mit einem TPopupMenu-Komponent auf demselben Formular verbunden. Immer wenn der Benutzer im Viewer mit der rechten Maustaste klickt oder die Kontextmenütaste drückt, zeigt VCL/LCL das Menü automatisch an der Cursorposition an — die Anwendung muss WM_CONTEXTMENU nicht selbst behandeln

Ein typisches Kontextmenü eines PDF-Lesers bietet Einträge wie Copy Selected Text, Zoom In, Zoom Out, Fit Width, Rotate, Go to Page…, Find… und Save As…. Die Menüeinträge lesen oder schreiben typischerweise öffentliche Eigenschaften wie CurrentCharIndex, Zoom, FitMode, Rotation und PageNumber, um das Dokument zu steuern

Da das Popup über den Mechanismus OnContextPopup angezeigt wird, können Sie es dynamisch unterdrücken oder ersetzen, indem Sie OnContextPopup behandeln und Handled := True setzen — nützlich, wenn der Rechtsklick über einem Formularfeld oder einer Anmerkung erfolgt, das bzw. die ein eigenes Menü benötigt

Hinweise

Dauerhafte Eigenschaft — die Verknüpfung mit der TPopupMenu-Instanz wird als Komponentenverweis in der Formulardatei gespeichert
VCL und LCL unterstützen die Eigenschaft; nur das visuelle Erscheinungsbild des Menüs unterscheidet sich zwischen den Widget-Sets
Das Menü ist unabhängig vom eingebauten Textauswahlverhalten: Es erscheint auch dann, wenn AllowUserTextSelection False ist
Um Menüeinträge kurz vor der Anzeige zu aktivieren oder zu deaktivieren, hängen Sie TPopupMenu.OnPopup ein und prüfen Sie Ansichtsstatus wie CurrentCharIndex oder Pdf.Active

Beispiel

// Ein Kontextmenü mit Copy / Fit Width / Go to Page zuweisen
procedure TForm1.FormCreate(Sender: TObject);
begin
  PdfView1.PopupMenu := pmReader;
end;

procedure TForm1.miFitWidthClick(Sender: TObject);
begin
  PdfView1.FitMode := pfmFitToWidth;
end;

procedure TForm1.miGoToPageClick(Sender: TObject);
var S: string;
begin
  S := IntToStr(PdfView1.PageNumber);
  if InputQuery('Go to page', 'Page number:', S) then
    PdfView1.PageNumber := StrToIntDef(S, PdfView1.PageNumber);
end;

Siehe auch

AllowUserTextSelection, CurrentCharIndex, PageNumber, FitMode