Hallo,
ich versuche gerade Performanceprobleme zu lösen und habe ein Miniprojekt erstellt:
Code
procedure TForm1.Button1Click(Sender: TObject);
var
i: Integer;
par, tbl: TParagraph;
begin
for i := 1 to 5000 do
begin
par := WP.addtable(1, 1, true);
par.SetText(i.tostring);
par.parentrow.ASet(WPAT_BoxMinHeight, 600);
tbl := par.parenttable;
tbl.Name := 'Tabelle ' + i.tostring;
// Cursor ans Ende
WP.ActiveParagraph := WP.BodyText.LastPar;
end;
WP.ReformatAll(true,true);
end;
Alles anzeigen
Dabei sieht man dass jede 20. Zeile eine falsche Höhe bekommen hat!
Ändert man die 600 in 500 ist jede 24. Zeile falsch!
Was mache ich falsch?
Ciao
Stefan
Nachtrag:
Ich habe die Zeileninhalte mal mit tbl.SaveToString weggeschrieben und die falsche und die richtige Zeile sind bis auf die Nummer identisch!
Also scheint die Anzeige (wplayNormal) falsch zu sein?
Nachtrag2:
Mit wplayLayout ist die Anzeige korrekt, man sieht jetzt dass die oben falsch dargestellten Zeilen die jeweils letzte auf einer Seite sind!