em_formatrange

[nakaramia]

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

[nakaramia]

Das Verhalten hatte sich nach einem Neustart des Systems erledigt und ist bisher nicht wieder aufgetreten.