Erzeugte Textboxen werden nicht gespeichert

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:

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

Code

WPViewPDF1.Command(COMPDF_Ann_SetAnnotSaveMode, 1);

aufgerufen.

Gespeichert wird mit der "SaveToFile" Funktion.

Code

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

Jemand ne Idee was ich falsch mache?

Henri

wpsupport

Hallo,.

Die draw objekte werden nicht gespeichert. Sie müssen erst mit einem RENDER kommando auf die PDF gezeichnet werden

KingSoft

Zitat von wpsupport

Hallo,.

Die draw objekte werden nicht gespeichert. Sie müssen erst mit einem RENDER kommando auf die PDF gezeichnet werden

Und wie geht das Rendern? Bitte ein Beispielcode; danke.

wpsupport

Sie müssen command aufrufen mit dieser command id:

COMPDF_RenderDrawobjects = 522; // Renders the objects. IntPar is the mode.

// Returns the number of rendered objects. (Use IntPar=128 to count only)

// This are the bits:

// 1 : RenderAnnotations - Render the annotations which are not widgets and not Popups

// 2 : RenderWidgets - Render widgets annotations/

// 4 : RenderPopups - Render popup annotations

// 8 : DeleteRenderedObjects and Annotations

// 16 : UseOriginalDataForRendering (use originla field values for widgets)

// 32 : UnderPageLayer - Render the draw objects under the page

// 64 : OverPageLayer - Render the draw objects over the page (or document draw objects)

// 128: Do not render or delete. Just count how many objects would be affected