Problem bei AppendTextObject('PAGE');

Wichtig: WPTools (5 und später) verwendet keine Strukturen die Seiten direkt zugeordnet werden. Es ist komplexer, es gibt Seiten mit Ausgabeobjekten welche dem Text in Absätzen zugeordnet werden. Damit kann der Text eines Absatzes auch auf mehreren Seiten erscheinen, was bei Kopf und Fusstext, aber auch bei Tabellen köpfen und -Füssen regelmässig der Fall ist. Daher kann ich die Frage nicht allgemein gültig beantworten.

Generell kann man aber für jede Zeile eines Absatzes abfragen auf welcher Seitennummer sie ausgegeben wurde mittels einer recht komplexen funktion des TParagraph: function LinePageNr(lin: Integer): Integer;

Wie ich bereits früher schrieb, sollten Sie dynamischen Text mittels Ausgabeobjekten drucken. Diese Ausgabeobjekte müssen die aktuelle Seite vor der Ausgabe (oder dem Druck) auswerten, nicht bei der Formattierung. Die Berechnung passiert also in der paint routine!

Dies ist code aus der Demo: WPReporter_Calc

procedure TWPTableCalc.DoTextObjectPaintCalcEvent(Sender: TObject;
     pobj: TWPTextObj; par : TParagraph;
     page : TWPVirtPage;
     pagenr : Integer;
     textbody : TWPRTFDataBlock;
     var ResultText : WideString;
     PaintCanvas : TCanvas; var UseIt : Boolean);
var formula : string;
    j : Integer;
    sum : extended;
    s : string;
    obj : TWPTextObj;
begin
   formula := pobj.Source;
   if formula='LASTTOTAL' then
   begin
     for j:=page.EmbeddedObjectCount([wpobjTextObject])-1 downto 0 do
     begin
        obj := page.EmbeddedObjectGet(j);
        if obj.Name='LASTTOTAL' then
        begin
          ResultText := obj.Params;
          UseIt := TRUE;
          exit;
        end;
     end;
   end else
   if (formula<>'') and (formula[1]>='A') then
   begin
     sum := 0;
     for j:=0 to page.EmbeddedObjectCount([wpobjMergeField])-1 do
     begin
        obj := page.EmbeddedObjectGet(j);
        s := obj.EmbeddedText;
        if (s<>'') and (s[1] in ['-','0'..'9']) then
        try
          sum := sum  + StrToFloat(s);
        except
          ResultText := 'ERR';
          UseIt := TRUE;
        end;
     end;
     if not UseIt then
        ResultText := FloatToStr(sum);
     UseIt := TRUE;
   end;
end;

In dem Paintcalc event des controls TWPFormulaInterface bekommt man auch die aktuelle Seite und sogar eine Referenz auf Zeichenunterlage "page". Der Code zeigt wie dort alle Felder ausgewertet werde. Dies können auch unsichtbare Felder sein um die vorherigen Summen auszuwerten.

Sie können also in jeder Ihrer Tabellenreihen die aktuelle Summe abspeichern, ähnlich einem laufenden Kontostand auf einem Bankauszug.

Wenn man das TWPFormulaInterface nicht zur Verfügung hat, kann man auch OnTextObjectPaint verwenden.

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);

und dort PageRef bzw PageRef.pagenr.

Ein neu kalkulieren bleibt einem nie erspart. Irgendwo muss die gesamt summe ja herkommen. Das Datenfeld muss auch nicht die tatsächliche Summe sein, sondern kann auch eine Referenz auf ein "Rechenblatt" ausserhalb sein.

Ja, der event kommt nur bei der Ausgabe, sonst nicht. Das ist auch gerade der Witz und darum ist das System schnell. Für Berechnungen ist das Ereignis nicht zu gebrauchen.

Ich denke Rechnungen mit 250 Seiten dürften auch eher unüblich sein. Hierfür braucht man besondere Lösungsansätze

Wenn es Flaschenhälse gibt, liegen die vermutlich woanders. Ein Thread der im Hintergrund die Seiten abfragt, das wird recht interessante Fehler verursachen.

WPTools ist zwar thread save, aber nicht als Editor sondern als document creator (TCustomRTFEdit) in seinem eigenen environment. In dem selben environment dürfen nicht mehrere threads gleichzeitig auf den Text zugreifen.