Beiträge von wpsupport

Mit der gezeigten Technik "cell := row.AppendNewCell();" liesse sich auch eine mehrzeilige Tabelle erstellen.

Code wie dieser wird mit steigender Anzahl der Abätze langsamer da LastPar ja immer neu ermittelt wird.

WP.ActiveParagraph := WP.BodyText.LastPar;

Es ist daher immer schneller direkt mit den Absatz Referenzen zu arbeiten und insbesondere die letzte Referenz zu nutzen um weitern Inhalt zu produzieren.

Das fragliche Anzeige Problem kann ich allerdings nicht erkennen - grundsätzlich arbeitet WPTools immer Seiten basiert und da müssen Umbrüche an manchen Stellen eingebaut werden.

Wenn Sie eine durchgehende Tabelle brauchen sollten Sie die Zellen über den Name der Zelle anstatt dem Namen der Tabelle adressieren. Namen für Reihen können nicht gespeichert werden.

Ich befürchte ein Dokument mit 5000 tabellen überfordert manchen RTF "consumer". Das Layout leidet auch.

(Ich habe den Titel des Beitrags so angepasst, dass er einen Hinweis auf die enthaltene Fragestellung bzw. Lösung enthält.)

Grüsse,

Julian

In dem code werden 5000 Tabellen mit je 1 Zeile und 1 Reihe erstellt - welches Problem löst dies?

Wie sie ja schon gesehen haben ergibt sich eine andere Höhe durch den Umbruch. Probieren Sie den Umbruch für Tabellen in FormatOptions abzuschalten.,

Weniger Overhead hat diese code:

    table, row, cell, par : TParagraph;
begin

    table := WPRichText1.ActiveParagraph;
    for I := 1 to 5000 do
    begin
      table := table.AppendNewTable();
      row := table.AppendNewRow();
      row.ASet(WPAT_BoxMinHeight, 600);
      cell := row.AppendNewCell();
      cell.SetText(i.tostring);
      cell.ASet(WPAT_BorderFlags, 15 ); // oder 7 ohne bottom border!
      table.Name := 'Tabelle ' + i.tostring;
    end;
    WPRichText1.ReformatAll(false, true);

Please make sure to download the latest Edition of WPViewPDF - April 2018.

Please also make sure you have copied the DLL wpdecodejp.dll - scanned documents often use JBIG2 encoding - this DLL implements it.

COMPDF_SetPagePaperBin is reserved, the intention is to set a paper bin for a selected page. But this is not a standard PDF feature.

But there is

COMPDF_SelectPrinterBin0 = 38; // set PrinterBin / PaperTray default

COMPDF_SelectPrinterBin1 = 39; // PrinterBin for first page

You will need the id of a paper tray how it is defined for that specific printer. The default tray ids usually do not work.

Internally the ID is set during printing in

DevMode.dmDefaultSource

Regards,

Julian

Worprozessor typisch unterstützt WPTools keine Übertragszeilen.

Möglicherweise helfen hier owner-draw text objekte, wie in einer mail vom 3.1.2018 erwähnt:

> Kann man (und wenn ja, wie) so wie im angehängten Dokument diese

> "Übertragszeilen" in einer WPRichText-Tabelle erzeugen?

Das geht leider nicht.

Es sei denn man baut harte Seitenumbrüche ein.

Was geht ist ein berechnetes Feld in eine Fusszeile zu verwenden und

in einem Event den Seiteninhalt auzuwerten. Für den Ausdruck bekommt

man damit eine Summe.

Ausschnitt aus einer Demo:

// This even is triggered by the field 'PAINT_CALC'!
procedure TWPRepForm.WPFormulaInterface1TextObjectPaintCalc(
  Sender: TObject; pobj: TWPTextObj; par: TParagraph; page: TWPVirtPage;
  pagenr: Integer; textbody: TWPRTFDataBlock; var ResultText: WideString;
  PaintCanvas: TCanvas; var UseIt: Boolean);
var i, colnr : Integer;
    sum : Extended;
    tbl : TParagraph;
    list : TList;
begin
   { This is only a dem to show how values on a page can be calculated. To
     calculate values in a table you can use
       table.GetObjList }

   // We don't want to use this in the first editor!
   if Sender<>SourceText.Memo then
   try
      tbl := pobj.ParentPar.ParentTable;
      colnr := pobj.ParentPar.ColNr;
      sum := 0;
      if pobj.SOURCE='TOTALNR' then // Sum in this Column ------------------------
      begin
        list := TList.Create;
        try
          tbl.GetObjList([wpobjMergeField],list,nil,'NR');
          for i:=0 to list.Count-1 do
          //OPTION: if TWPTextObj(list[i]).ParentPar.ColNr=colnr then  //<--- only in same COLUMN!!!
          begin
            // sum := sum + StrToFloat(TWPTextObj(list[i]).EmbeddedText);
            sum := sum + TWPTextObj(list[i]).EmbeddedTextAsFloat;
          end;
        finally
         list.Free;
        end;
      end else // Sum on this page with same parent table ----------------------
      begin
        for i:=0 to page.EmbeddedObjectCount([wpobjMergeField],pobj.Source)-1 do
        if page.EmbeddedObjectGet(i).ParentPar.ParentTable=tbl then // Only sum up in same table!
        begin
         // sum := sum + StrToFloat(page.EmbeddedObjectGet(i).EmbeddedText);
         sum := sum + page.EmbeddedObjectGet(i).EmbeddedTextAsFloat;
        end;
      end;

      ResultText := FloatToStr(sum);
      UseIt := TRUE;
   except
      ResultText := 'ERR';
      UseIt := TRUE;
      if PaintCanvas<>nil then
         PaintCanvas.Font.Color := clRed;
   end;
end;

Getting closer - now printing on OSX works. Finally I found problem and solution for fonts being scaled too large on OSX printer canvas. (QC RSP-20422)

You can integrate images using InputGraphicDialog

Please use the event OnKeyPress if you want to load a smily after the user typed :-)

I will investigate if this feature can be added to Wptools 8

The OCX does not allow to change the property Security. With .NET its no problem since there you can access PDFControl.PDFCreator.Security, but the OCX does not have this method.

Tabulatoren beziehen sich immer auf den linken Rand der Zelle bzw. des Absatzes.

Oft verwendet man diese Funktion des TWPRichText um tabstops hinzuzufügen:

This function adds a tabstop. The first parameter is the position in twips,

the second is the kind of the tabstop. Possible values are:

tkLeft - standard LEFT (default)

tkRight - Flush-right tab.

tkCenter - Centered tab.

tkDecimal - Decimal tab.

tkBarTab - Draw bar (Unlike in Word, Fillmodes are supported, too!)

Two optional parameter are used to specify the fillmode and the fill color.

function TabstopAdd(PosInTwips: Integer; Kind: TTabKind = tkLeft;

FillMode: TTabFill = tkNoFill; FillColor: Integer = 0): Boolean;

Wenn man auf der basis einer Zelle, also eines TParagraph arbeitet gibt es diese Methode

function TabstopAdd(Value: Integer; Kind: TTabKind = tkLeft;

Fill: TTabFill = tkNoFill; ColorNr: Integer = 0): Boolean;

sowie TabstopDelete und andere Tabstop... funktionen welche in der CMH gelistet werden.

With the code

WPRichText1.TableAdd(2, 2, [wptblActivateBorders, wptblPlaceCursorInLastCell]);
WPRichText1.CurrAttr.VertAlignment := paralVertBottom;
WPRichText1.InputStringW('My Text Align Bottom');

you will not see any vertical alignment. This can only work if the other cells in the table row have more visible lines than the cell which is aligned.

The mobile pack is now part of the "regular" Delphi 10.3.3 professional which makes this platform a lot more interesting.

So, since several days I was testing the current WPTools FMX alpha on Android - after fixing some memory issues it finally looks promising.

The test app starts on Android and the text is displayed. Typing also works, albeit the keyboard interface is pretty tricky.

I am not sure if it would be interesting enough to use WPTools as text editor on android, but to create reports and display data I imagine it to be great. If only the PDF export would be ready yet ...

Die Defines wirken für den Code welcher kompiliert wird. Also nicht für units welche als DCU vorliegen.

Ich verwende dies recht oft - allerdings muss man immer mit "Neu erstellen" sicher gehen, dass alle pascal Dateien neu kompiliert werden.

In den Optionen einen Projekts lassen sich ebenfalls Compilersymbole unterbringen.

Menü: Projekt/Optionen

im Dialog "Conditional Defines", das ist das oberse Element unter "Delphi Compiler"

Das WPRichText verwendet MouseWheel events für seinen eigenen Bedarf. Es scrollt und zoomt.

Wenn Sie das nicht wollen, können Sie die unit WPCtrMemo entsprechend anpassen. Vermutlich reicht aber schon ein

$DEFINE DONT_USE_MOUSEWHEEL

in WPINC.INC und re-build der Applikation.

Zitat

I downloaded the WPViewPDF demo version on this link and it worked.

What is the upgrade option that I should do for a delphi team, as I plan to upgrade.

The upgrade is available at 70% of the new price. (=30% discount)

I sent you the coupon via email.

Müsste in dieser art gehen:

with WPRichText1.ParStyles.AddStyle('ZELLE') do
begin 
    AMerge( WPRichText1.ParStyles.FindStyle('Hintergrund').TextStyle, true);  
    AMerge( WPRichText1.ParStyles.FindStyle('Kursiv').TextStyle, false); 
end;

Es ist nicht möglich einem Absatz mehr als einen Stile zuzuweisen.

Man kann aber einen neuen Stil erstellen und die Attribute von diversen Absätzen hineinkopieren.

InputTextFieldName does not create a field like InputMergeField, it is a text object which has some kind of OwnerPaint.

But -I am going to include a modification to the HTML export of WPTools 8 so date can be exported. The page number is more problematic here since HTML does not have page numbers.

A TextField, i.e. "DATE" or "PAGE" which are created with InputTextFieldName will always display the current value during display. They are not exported to HTML.

You need to use InputMergeField instead of InputTextFieldName to insert your DATE field.