Beiträge von hvanhoffs

Hallo,

ich versuche gerade herauszufinden wie der Anwender zur Laufzeit Text auf die PDF bekommt (am besten wie mit dem Schreibmaschinen-Tool).

Der Anwender kann auch Text auf die PDF Schreiben..nur wird der nicht gespeichert.

Folgender Code wird ausgeführt wenn die Textbox erstellt wird:

procedure TPDFFORM.InsertTextClick(Sender: TObject);
var
  Text: String;
  I: Integer;
  t: TPDFDrawObjectRec;
  s: Ansistring;
begin
  Text := '';
  Text := InputBox('PDF Text', 'Bitte Text eingeben', '');
  FillChar(t, SizeOf(t), 0);
  t.grtyp := 100;
  t.typparam := 2000; // Textfield, Height = 20
  t.ColorText := ColorToRGB( clBlue );
  t.ColorBrush := ColorToRGB( clBlue );
  t.ObjectOptions := 4+64+4096; // Center Text + size unchangeable + Align to middle(vertically)
  t.PageNo :=  WPViewPDF1.command(COMPDF_GetPageUnderMouse);
  t.x := WPViewPDF1.command(COMPDF_GetPageLogX);
  t.y := WPViewPDF1.command(COMPDF_GetPageLogY);

  t.h := 28;
  t.w := Trunc(Length(Text) * 10);
  t.Angle := WPViewPDF1.command(COMPDF_GetPageRotation, t.PageNo);
  t.FontSize := 18*100;
  s := '"Font=TimesNewRoman"';
  WPViewPDF1.AddDrawObject(wpAddNow, '', t, Text, PAnsiChar(s));
end;

Vor dem Öffnen des Dokuments wird noch

WPViewPDF1.Command(COMPDF_Ann_SetAnnotSaveMode, 1);

aufgerufen.

Gespeichert wird mit der "SaveToFile" Funktion.

    PDFFORM.WPViewPDF1.PLUS.SaveToFile(PDFFORM.WPViewPDF1.filename);

Jemand ne Idee was ich falsch mache?

Henri

Okay schade,

trotzdem vielen Dank für die schnelle Antwort!

Hallo,

habe ein kleines Problem mit der PDF Anzeige.

Wurde Text in einer PDF mit einem anderen PDF Editor gehighlightet, kann man diesen Text nicht erkennen wenn die PDF mit WPView angezeigt wird.

Alles was dann noch sichtbar ist, ist ein Balken in der Farbe, in der der Text markiert wurde.

Hab die Commands schonmal durchgeschaut, auf den ersten Blick konnte ich keine Einstellungsmöglichkeit dafür erkennen (z.B. den Alphawert runtersetzen oder so was).

Hoffe hier hat jemand eine Idee.

Henri