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:
Code
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;
Alles anzeigen
Vor dem Öffnen des Dokuments wird noch
aufgerufen.
Gespeichert wird mit der "SaveToFile" Funktion.
Jemand ne Idee was ich falsch mache?
Henri