Text kürzen (Ellipsis...)

[Guido Eisenbeis]

Hallo himitsu,

danke für den Code, funktioniert prima.

Zitat von himitsu:

Nja, die letzte Variante, also die mit dem Handle (HDC), sollte dann wohl auch unter Lazarus laufen. (hoff ich einfach mal, und wenn nicht, dann müßt ihr's halt noch etwas anpassen)

Kann ich bestätigen. In Lazarus sollte man darauf achten, für die Rect-Funktion die richtige Unit ("Classes") einzubinden und vor den Rect-Befehl zu setzen. (Ein Fehler kann z. B. auftreten, wenn man auch die Unit "Windows" eingebunden hat.) Das wäre dann in deinem Code die neunt-letzte Zeile:

  R := Classes.Rect(1, 1, MaxWidth, MaxHeight);


Und hier noch ein Aufruf-Beispiel, das den Text kürzt, wenn die Form "resizet" wird.

Delphi-Quellcode:

  // Label1 (TLabel) auf die Form, Label1.AutoSize = False setzen und z. B.
  // links und rechts bis fast an den Form-Rand vergrößern.
  // Der Effekt wird sichbar beim Verkleinern der Form, wenn der Text länger
  // als das Label ist.

  procedure TForm1.FormResize(Sender: TObject);
  begin
    Label1.Caption := GetEllipsisText(
      Label1.Canvas.Handle, 'Beispiel-Text für FormResize.', Label1.Width);
  end;

Guido.


Nachtrag 02.11.2011: Habe gerade festgestellt, dass die Funktion in Lazarus beim Kürzen von Umlauten ein "?" an der Stelle des Umlauts zeigt. Hab dies als Frage im anderen Thread im Posting #28 gestellt.

Nachtrag 04.11.2011: Hier die angepasste Routine für Lazarus:

Delphi-Quellcode:

function GetEllipsisText(Handle: HDC; S: String; MaxWidth: Integer; MaxHeight: Integer = 0;
  PathEllipsis: Boolean = False; TextFormat: LongWord = 0): String;
var
  R: TRect;
begin
  Result := UTF8ToAnsi(S);  // <-- Konvertieren zu Ansi ...
  UniqueString(Result);
  if MaxHeight <= 0 then
    MaxHeight := 1000;
  R := Classes.Rect(1, 1, MaxWidth, MaxHeight);
  TextFormat := TextFormat or DT_CALCRECT or DT_MODIFYSTRING;
  if PathEllipsis then
    TextFormat := TextFormat or DT_PATH_ELLIPSIS;
  if TextFormat and (DT_END_ELLIPSIS or DT_PATH_ELLIPSIS) = 0 then
    TextFormat := TextFormat or DT_END_ELLIPSIS;
  DrawTextEx(Handle, PChar(Result), Length(Result), R, TextFormat, nil);
  SetLength(Result, StrLen(PChar(Result)));
  Result := AnsiToUTF8(Result); // <-- und zurück.
end;

Guido.