Delphi-PRAXiS - Delphi em

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