Hallo,
beim Umstellen einer Delphi 2007-Anwendung auf Delphi XE5 hat sich das Verhalten einer Funktion für die Druckausgabe geändert, bei der es mir noch an Verständnis fehlt. Unter Delphi 2007 ändert sich bei jedem Schleifendurchlauf LastChar bis der Wert zwei mehr als MaxLen beträgt. Die Anzahl der druckbaren Zeichen erhöht sich also mit dem Zufügen jeder weiteren Seite. Bei XE5 habe ich folgendes Verhalten, so dass das Programm in der Schleife fest hängt.
1. Durchlauf: LastChar: 2188; MaxLen: 4911; cpmin: 0
2. Durchlauf: LastChar: 4791; MaxLen: 4911; cpmin: 2188
3. Durchlauf: LastChar: 4903; MaxLen: 4911; cpmin: 4791
4. Durchlauf: LastChar: 4902; MaxLen: 4911; cpmin: 4903
(5 + n). Durchlauf: LastChar: 4902; MaxLen: 4911; cpmin: 4902
Bei einem zweiseitigen Text tritt das Verhalten von Durchlauf 4 einfach bereits beim zweiten auf. Bei einseitigen Texten funktioniert alles wunderbar.
Delphi-Quellcode:
with Range do
begin
...
LastChar := 0;
MaxLen := DruckStatusForm.RichEdit.GetTextLen;
chrg.cpMax := -1;
repeat
chrg.cpMin := LastChar;
LastChar := SendMessage(DruckStatusForm.RichEdit.Handle, EM_FORMATRANGE, 1,
Longint(@Range));
if (LastChar < MaxLen) and (LastChar <> -1) then
begin
NewPage;
rc := rcPage;
TextBounds.Top := Bounds.Top;
rc.Top := ToTwips(TextBounds.Top, LogY);
end;
until (LastChar >= MaxLen) or (LastChar = -1);LastChar := 0;
end;
SendMessage(DruckStatusForm.RichEdit.Handle, EM_FORMATRANGE, 0, 0);