Beiträge von wpsupport

Es wird also MergeText nach dem Einfügen des Textes aufgerufen und dabei gehen die Attribute verloren, nicht wegen SaveToString!

Achten Sie bitte darauf, dass die Einfügepunkte << >> das text Attribut besitzen, welches auch der enthaltene Text haben soll.

Das ist immer wichtig, ob die Felder im header, footer, text box oder im body sind.

Der Text innerhalb von << >> ist nicht das Feld, sondern der Feldinhalt. Dieser Text ist optional und kann ersetzt werden, er kann auch fehlen.

Man kann die Attribute des Textes aber so auslesen (--> Mail Merge):

Contents.MergeAttr.CharAttr := WPRichText1.CPCharAttr;

Yes, it is an action.

You can look for

380499 0 obj

to see how that action is defined.

I assume the PDF does not have destinations. Did you check what kind of coordinates are in there. Often they are visible when opened just in notepad++

Der code entspricht ja ungefähr der demo TextBoxTestU und ist ok, und wenn ich die demo entsprechend ergänze, kommen die Attribute dort auch an.

Wichtig ist beim event GetSpecialText lediglich, das dort weder formatiert werden darf, noch die cursor position verändert. Dies macht obiger code aber nicht.

Am besten nach dem Laden den gesamten Text abspeichern, um zu prüfen, ob die Attribute noch da sind. Evtl. werde sie ja nach dem Laden durch einen Event überschrieben.

Anregung: Wann wird denn GetSpecialText ausgelöst? Wenn Sie einen breakpoint platzieren, was liegt auf dem stack?

Das Problem kann ich weiterhin nicht nachvollziehen - siehe mail.

*** WPTools 9.1.020 - 2.3.2020 ***

+ new event OnDrawUnderline. This powerful event makes it possible to customize background and underline of

hyperlinks, i.e to draw a background for hyperlinks, record the position

of hyperlinks on the canvas. Since this event is triggered for all kind of underlines, it can also be

used to dynamically change the underline color.

- the WPT loader didn't handle NumStyle=0 as undefined like WPTools 7

- fix problem with DeleteHyperlink

* improvements in colspan handling

* changed the way grid lines are painted to avoid deletion of the previously painted borders

*** WPTools 9.1.019 - 19.1.2020 ***

* GetSelectionAsString was ignoring TextSaveFomat property

+ The save format string '-alwaysembed' now works consisterntly to embed images in WPT, RTF and HTM format

usage: s := WPRichText1.AsANSIString('HTML-alwaysembed,-nobinary');

Ich habe heute eine neue Version hochgeladen die dieses Problem behebt.

Das macht hier keinen Unterschied:

var RTFData: TWPRTFDataBlock;

mem : TMemoryStream;

obj : TWPTextObj;

begin

mem := TMemoryStream.Create;

mem.LoadFromFile('S:\rtf.rtf');

WPRichText1.ActiveText := WPRichText1.HeaderFooter.Get(wpIsHeader,wpraOnAllPages);

obj := WPRichText1.TextObjects.InsertTextBox(3000,3000, RTFData);

RTFData.RtfText.LoadFromStream(mem);

mem.Free;

JPEG is a format which can be directly embedded into PDF so executing

WPWriteComment( toCanvas.Handle, 3022, BoundsRect, DataPtr, DataLen);

is correct, as long as the data is really JPEG data. Is the file extension incorrectly set?

Es ist nicht sinnvoll bei RTF text mit strings zu arbeiten, verwenden Sie memory streams. RTF ist ANSI code und man kann nie wissen, ob bei der Umwandlung in einen unicode string eine code page umwandlung den code verändert. Desweiteren kann man einen memorystream immer leicht als Datei abspeichern, für debugging zwecken.

Ich habe Ihren text hier mal in eine Textbox geladen, ich sehe schon die unterschiedlichen Grössen.

Einen String konnte ich nicht bauen, da Ihre Debugger Quelle dafür keine Vorlage darstellt.

I recommend to create a merge field and inside the merge field an image as a placeholder.

Using the OnTextObjectPaint event ist is possible to know the position and page number:

Zitat

procedure TForm1.WPRichText1TextObjectPaint(Sender: TObject;

pobj: TWPTextObj; toCanvas: TCanvas; XRes, YRes, X, Y, W, H, BASE: Integer;

PageRef: TWPVirtPage; Modes: TWPTextObjectPaintModes;

const CanvasExtraAttr: TWPPaintExtraParams;

var ContinueMode: TWPTextObjectPaintResult);

var currfield : TWPTextObj;

pos_in_pt : TRect;

begin

currfield := WPRichText1.CodeInsideOf(

pobj.ParentPar, pobj.ParentPosInPar, wpobjMergeField

);

if currfield<>nil then

begin

// check currfield.Name ...

// --> PageRef.PageNr

pos_in_pt := Rect(

MulDiv(x,72,XRes),

MulDiv(y,72,YRes),

MulDiv(x+w,72,XRes),

MulDiv(y+h,72,XRes)

);

// Store the rectangle for subsequent signing

// The page number is

//--> PageRef.PageNr

// Hide in PDF export

if wpPaintObjDestIsPDF in Modes then

ContinueMode := [];

end;

end;

Alles anzeigen

Zitat

I wanted to ask how to insert "rectangles" into wprichtext of which once exported pdf I can know the exact coordinates inside the pdf (page number and left and bottom margins) to be able to subsequently insert an electronic signature through an application which requires the previous parameters.

Ich hab das mal schnell getestet (mit anonymer Funktion)

   WPRichText1.TableAdd( 3, 3,
      procedure(RowNr, ColNr: Integer; par: TParagraph)
      begin
        par.SetText(RowNr.ToString);
      end,
      [wptblActivateBorders,
      wptblCreateHeaderRow,wptblCreateSubHeader,
      wptblCreateFooterRow,wptblCreateSummaryFooter
      ] );

   WPRichText1.ReformatAll();

Das Resultat ist wie erwartet:

-1    -1    -1
-1    -1    -1
1    1    1
2    2    2
3    3    3
-2    -2    -2
-2    -2    -2

Die Erkennung von "SubHeader" ist nicht optimal, einfacher geht es mit durchzählen:

   h := 0;
   r := 0;
   WPRichText1.TableAdd( 3, 3,
      procedure(RowNr, ColNr: Integer; par: TParagraph)
      begin
        if RowNr=-1 then
        begin
          if ColNr=1 then inc(h);
          par.SetText( 'Header ' + IntToStr(h));
        end else
        if RowNr=-2 then
        begin
          if ColNr=1 then inc(r);
          par.SetText( 'Footer ' + IntToStr(r));
        end else
        par.SetText(RowNr.ToString);
      end,
      [wptblActivateBorders,
      wptblCreateHeaderRow,wptblCreateSubHeader,
      wptblCreateFooterRow,wptblCreateSummaryFooter
      ] );

   WPRichText1.ReformatAll();

Zitat

So ich habs noch mal getestet, da scheint beim HTML Load was nicht zu passen

Das sehe ich auch so - wird überarbeitet.

You can mail me the text which should show a border but does not after you save it in WPT format. This makes it much easier to see what properties are there and which are not.

Wenn man die Kompression in wPDF abstellt, kann man die PDF in einem ganz normalen text betrachter (notepad++) ansehen.

Ich verwende ein rudimentäres, selbst gebautes PDF werkzeug.

There is no support for exponential, in WPEval.pas you find the functions which are included.

Thanks for asking - you can implement special borders also using the callbacks CustomLinePaintBefore and CustomLinePaintAfter.

Of course you need to detect somehow which paragraphs should have a border.

procedure TWPCustDraw.WPRichText1CustomLinePaintAfter(Sender: TObject;
  RTFEngine: TWPRTFEngineBasis; Param: TWPVirtPagePaintParam;
  EndOfPageRun: Boolean);
var r: TRect;
  par: TParagraph;
begin
  if EndOfPageRun then // at last ...
  begin
    r := Param.UnionRect;
    Param.Canvas.Brush.Style := bsClear;
    if CreateBox.Checked and
      (Param.Tag=2) then
    begin
      Param.Canvas.Pen.Width := Param.Page.XPixelsPerInch div 30;
      Param.Canvas.Pen.Color := clBlack;
      InflateRect(r, Param.Page.XPixelsPerInch div 30,
        Param.Page.XPixelsPerInch div 30);

      // We need to start on next page with a box!
      if not Param.Par.HasText('$end') then
         HasOpenBox  := TRUE;

    end
    else
    begin
      Param.Canvas.Pen.Width := 0;
      if flashmode then Param.Canvas.Pen.Color := clYellow
      else Param.Canvas.Pen.Color := clRed;
    end;
    Param.Canvas.Rectangle(r.Left, r.Top, r.Right, r.Bottom);
  end else
    if Param.Tag = 0 then // check each par only once!
    begin
      // This is need to for dynamic boxes to span multiple pages!
      if Param.PageNo=0 then HasOpenBox := FALSE;

      Param.Tag := 1;
      if HiglightNOW.Checked and
        not Param.Par.IsTable
        and Param.Par.HasText('NOW') then
      begin
        Param.CallAgainToClose := TRUE;
        Param.UseUntilIncludingPar := Param.Par.LastInnerChild;
      end else if CreateBox.Checked then
      begin
        par := Param.Par;
        if HasOpenBox or par.HasText('$start') then
        begin
          while (par <> nil) and not par.HasText('$end') do
            par := par.next;
          Param.Tag := 2; // we need to know that this is a dynamic box
          Param.UseUntilIncludingPar := par;
          if par <> nil then Param.CallAgainToClose := TRUE;
        end;
      end;
    end;
end;

Zitat

Wie prüfen sie, ob und welche Tags das Dokument enthält?

Ich öffne sie mit einem speziellen Werkzeug, dass die PDF in seine Bestandteile zerlegt.