Delphi-PRAXiS
Seite 2 von 2     12   

Delphi-PRAXiS (https://www.delphipraxis.net/forum.php)
-   Sonstige Fragen zu Delphi (https://www.delphipraxis.net/19-sonstige-fragen-zu-delphi/)
-   -   Delphi PDF als Bild, OnClick (https://www.delphipraxis.net/106242-pdf-als-bild-onclick.html)

SaFu 16. Feb 2008 17:17

Re: PDF als Bild, OnClick
 
das Wäre mir egal hauptsache ich kann es damit machen.
Aber geht das wirklich nicht einfacher hat von euch noch nie einer sowas gebraucht

Bernhard Geyer 16. Feb 2008 17:53

Re: PDF als Bild, OnClick
 
Ein Teil der Toolbar ist ja die Werbeeinblendung bzw. die selbstbeweihräucherung. Und Adobe will möglichst das immer sichtbar halten.

SaFu 16. Feb 2008 18:04

Re: PDF als Bild, OnClick
 
Der Anfänger dieses Threads hat die ActiveX Komponente installiert was ich noch nicht habe wie mache ich das den. geht es vielleicht darüber besser (mein vorhaben). Ich habe mir schon die SDK von Acrobat runtergeladen aber weis jetzt nicht wie ich das machen muss.

Pfoto 16. Feb 2008 18:14

Re: PDF als Bild, OnClick
 
Hallo!

ich kann dir zwar nicht zum Problem des PDF-SDK helfen,
aber was spricht dagegen, es wirklich mit reinem Html/CSS
aufzubauen.
Du könntest ja sogar Html von Word aus speichern, auch wenn
es dann katastrophaler Quellcode wird...

Du könntest auch per CSS eine visuelle Erscheinung einer
Seite wie beim Acrobat machen (weißes Blatt mit Schatten),
das ist nicht sehr schwer. Ich könnte dir dabei helfen.

Die Events des TWebbrowser lassen sich ebenfalls abfangen,
auch z.B. das PopUp-Menü.


Gruß
Pfoto

SaFu 16. Feb 2008 18:46

Re: PDF als Bild, OnClick
 
Naja wenn du mir helfen könntest wäre es sehr net von dir ich würde mir auch alle mühe geben

Pfoto 16. Feb 2008 19:06

Re: PDF als Bild, OnClick
 
Um gezielt was anfertigen zu können, müsstest du
mir die maximalen maße geben:

Wie viel Pixel soll das weiße Blatt breit sein?
Wie breit soll der Rand sein?
Genügt eine fixe Breite (kein Flouid-Layout)?
Das wäre einfacher umzusetzen.

Gruß
Pfoto

SaFu 16. Feb 2008 19:12

Re: PDF als Bild, OnClick
 
Also die Breite müsste so 563 Pixel und die Höhe 699 Pixel sein den Rand da habe ich mir noch keine gedanken gemacht.
Wie bekomme ich den überhaupt mal einen Ansatz

Pfoto 16. Feb 2008 19:50

Re: PDF als Bild, OnClick
 
Liste der Anhänge anzeigen (Anzahl: 1)
Hallo nochmal,

im Anhang findest du ein Beispiel, wie man grafisch
ein Blatt Papier in HTML/CSS darstellt. Die Höhe
ist dabei variabel und erweitert sich mit zunehmendem
Inhalt.


In der CSS-Datei habe ich die Zeilen markiert, wo du
die Innenabstände (Seitenränder) einstellen kannst.



Gruß
Pfoto

pirechner 5. Nov 2008 14:47

Re: PDF als Bild, OnClick
 
Ich stand auch vor dem Problem und habe es wie folgt gelöst:

ActiveX Element hinzufügen
Komponente->ActiveX importieren...-> Adobe Acrobat (sprich PDF-Dokument) auswählen und installieren
Alles bestätigen und so einstellen wie gewünscht.
Nun sollte bei der ActiveX Registerkarte ein neuer Eintrag/Icon für PDF-Dokumente erscheinen.

PDF-Dokument einbinden
Wie z.B. einen Button auf dem Formular platzieren.

Vollbildmodus
Einerseits kann man einfach die Leisten ausblenden per:
Delphi-Quellcode:
 acropdf1.setShowScrollbars(false);
 acropdf1.setShowToolbar(false);
andererseits kann man auch eine Dokument laden und danach [STRG] + [L] drücken um in den Vollbildmodus zu wechseln.
[STRG] + [L] kann man jedoch auch simulieren.
simulieren von Tastenkombination
Vorhergenden Quelltext für [STRG] + [L] anpassen.

Besonderheit
Der Vollbildmodus findet dann jedoch nur innerhalb der Komponente statt. Wenn man nun bildschirmfüllend das Dokument anzeigen möchte muss man den WindowState eines Fensters auf maximized setzen und dann die Komponente selbst auf dem Formular maximieren.

Meine Komplettlösung
Delphi-Quellcode:
procedure TForm1.FormClick(Sender: TObject);
  procedure sim_CtrlL;
  begin
    keybd_event(VK_CONTROL, MapVirtualKey(VK_CONTROL, 0), 0, 0);               //Drücken von  [STRG]
    keybd_event(Ord('L'), MapVirtualKey(Ord('L'), 0), 0, 0);                   //Drücken von  [L]
    keybd_event(Ord('L'), MapVirtualKey(Ord('L'), 0), KEYEVENTF_KEYUP, 0);     //Loslassen von [L]
    keybd_event(VK_CONTROL, MapVirtualKey(VK_CONTROL, 0), KEYEVENTF_KEYUP, 0)     //Loslassen von [STRG]
  end;
begin
  acropdf1.Top:= 0;
  acropdf1.Left:= 0;
  acropdf1.Height:= self.ClientHeight;
  acropdf1.Width:= self.ClientWidth;
  if opendialog1.Execute then
  begin
    acropdf1.LoadFile(opendialog1.FileName);
  end;
  sim_ctrlL;
end;
weiterführende Informationen
direkt zu Adobe PDF API


Alle Zeitangaben in WEZ +1. Es ist jetzt 17:45 Uhr.
Seite 2 von 2     12   

Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024-2025 by Thomas Breitkreuz