Text zur Anzeige kürzen mit Punkten hinten

[Guido Eisenbeis]

Ich benutze Lazarus im {$mode delphi} für Win 32.

Hier geht es um einen Workaround, der vom Thread Verschiedene Controls an Procedur übergeben "abstammt".

Wenn eine Form in der TitleBar einen langen Text anzeigt und man die Form seitlich verkleinert (zusammenschiebt), wird der Text gekürzt und mit Punkten am Ende dargestellt, sobald der gesamte Text nicht mehr in die TitleBar passt. Dieses Verhalten will ich für verschiedene Controls nachbilden, die man z. B. als TitleBar für eine rahmenlose Form verwenden kann.

Bei meiner Recherche (Google, Foren-SF) habe ich zu diesem Thema nur Beiträge gefunden, die sich auf Pfade beziehen und die Punkte in der Mitte haben. Mir geht es aber um beliebigen Text, dem die Punkte hinten angehängt werden. (Wer einen fertigen Code kennt, kann ihn gerne posten.)

Für die Anzeige des gekürzten Textes mit Punkten kommen verschiedene Controls in Frage, die auch nicht unbedingt eine TitleBar darstellen müssen (TitleBar war nur ein Beispiel). Wichtig ist nur, dass das Control eine Caption- oder Text-Eigenschaft hat.

Hier eine Übersicht der Bedingungen, die in einer einzigen Procedure erfüllt werden sollen:

- Im Procedure-Kopf wird ein Control und der Text übergeben.

- Es wird geprüft, ob das Control eine Caption- oder Text-Eigenschaft besitzt.

- Die Textlänge wird in Pixel ermittelt und mit der Width des Controls verglichen.
. . . dabei wird die Schrift, Schrift-Größe, Fett-Schrift, usw. berücksichtigt.

- Ist der Text zu lang, um komplett im Control dargestellt zu werden,
. . . a) wird er gekürzt, sodass er ins Control passt und "..." angehängt,
. . . b) wird der komplette Text im Tooltipp des Controls angezeigt.


Nun werd ich mich daran machen, das Ganze in Code umzusetzen. Einige Ansätze wurden schon im o. g. "Abstamm"-Thread gezeigt. Über weitere Ideen und Anregungen würde ich mich freuen!

Guido.

[BUG]

Der schönste Ansatz ist es nicht gerade, aber vielleicht kannst du damit was anfangen:

Delphi-Quellcode:

function shortenString(c: TCanvas; s: string; w: integer; dots: boolean): string;
var
  exploder: TStringList;
  appendDots: boolean;
begin
  exploder := TStringList.Create;
  exploder.Delimiter := ' ';
  exploder.DelimitedText := trim(s);
  appendDots := False;
  while exploder.Count > 0 do
  begin
    if appendDots then
      s := exploder.DelimitedText + ' ...'
    else
      s := exploder.DelimitedText;
    if c.TextWidth(s) > w then
    begin
      exploder.Delete(exploder.Count - 1);
      appendDots := dots;
    end
    else
    begin
      break;
    end;
  end;
  exploder.Free;
  Result := s;
end;

[himitsu]

Zumindestens in Delphi gibt es da irgendwo eine Funktion dafür, aber ich glaub das war sogar eine WinAPI, also sollte es sie auch in Lazarus geben.

PS: Bei den TLabel (Delphi) kann man das jetzt auch über den OI regeln.
Wobei es intern schon viel länger möglich war.
(ich weiß nicht wie dieses in Lazarus arbeitet, aber vermutlich ähnlich)

Stichwort: DrawTextW und DT_PATH_ELLIPSIS, DT_END_ELLIPSIS oder DT_WORD_ELLIPSIS.

[Guido Eisenbeis]

@BUG

Dein Ansatz ist zwar etwas grob, aber schon ganz gut. Mit grob meine ich, dass das Kürzen immer ganze Wörter weg nimmt. Bei längeren Wörtern (z. B. "Weltwirtschaftskrise") wäre das schon jeweils ein ziemlich krasser Sprung. An sich aber eine interessante Idee.

Zitat von himitsu:

Zumindestens in Delphi gibt es da irgendwo eine Funktion dafür, aber ich glaub das war sogar eine WinAPI, also sollte es sie auch in Lazarus geben.

Welche Funktion ist das denn? Die von dir erwähnte DrawText? DrawText will ich nicht.
Nee, Spaß beiseite, für DrawText wird ein hdc benötigt, was nicht bei allen in Frage kommenden Controls der Fall ist. Außerdem soll der gekürzte Text als string vorliegen, um in z. B. weiterverarbeiten zu können.

Falls du eine andere Funktion meintest, dann raus damit.

Zitat von himitsu:

Bei den TLabel (Delphi) kann man das jetzt auch über den OI regeln.
Wobei es intern schon viel länger möglich war.
(ich weiß nicht wie dieses in Lazarus arbeitet, aber vermutlich ähnlich)

Denke ich auch. Wie heißt die Eigenschaft denn? Ab welcher Delphi-Version?


Ansonsten, eine Routine zum kürzen habe ich mittlerweile selbst geschrieben. Funktioniert ganz gut. Hier ein Code-Ausschnitt:

Delphi-Quellcode:

  // Text kürzen, bis er ins Control passt.
  while (ACtrl.Width < (TmpCanvas.TextWidth(TmpTxt) + 50)) do
  begin
    if Length(TmpTxt) < 2 then exit;
    TmpTxt := LeftStr(TmpTxt, Length(TmpTxt) - 1);
  end;

[jaenicke]

Zitat von Guido Eisenbeis:

Denke ich auch. Wie heißt die Eigenschaft denn? Ab welcher Delphi-Version?

EllipsisPosition, siehe Doku:
http://docwiki.embarcadero.com/VCL/d...lipsisPosition
Das sieht dann so aus:



Geben tut es das ab Delphi 2006. Intern wird das 1:1 auf die entsprechenden Konstanten gemappt und an DrawText übergeben. Auch Canvas.TextRect kennt ein entsprechendes Flag. Aber das sind eben alles nur für die Ausgabe vorhandene Funktionen.

Wenn du also den gekürzten Text benötigst, musst du das selbst machen.

// EDIT:

Zitat von Guido Eisenbeis:

Nee, Spaß beiseite, für DrawText wird ein hdc benötigt, was nicht bei allen in Frage kommenden Controls der Fall ist.

Bei welchen denn? Nicht bei allen kommst du direkt heran, aber eigentlich haben alle einen Device Context.

[DeddyH]

Vielleicht geht es mit MinimizeName, obwohl das AFAIK nur für Pfadangaben gedacht ist.

[himitsu]

Ahhh, MinimizeName war das ... nichts gefunden, aber doch erinnert, daß vor Jahren mal gesehn zu haben

Schade, hatte gehofft das nutzt die gleiche Funktion, welche auch DrawText nutzt.

[Guido Eisenbeis]

Zitat von DeddyH:

Vielleicht geht es mit MinimizeName, obwohl das AFAIK nur für Pfadangaben gedacht ist.

Stimmt, ist nur für Pfade.

Zitat von jaenicke:

EllipsisPosition
...
Geben tut es das ab Delphi 2006. Intern wird das 1:1 auf die entsprechenden Konstanten gemappt und an DrawText übergeben. Auch Canvas.TextRect kennt ein entsprechendes Flag. Aber das sind eben alles nur für die Ausgabe vorhandene Funktionen.

Danke für die Info. Hab EllipsisPosition gefunden beim TLabel in TurboDelphi. In Lazarus scheint's das nicht zu geben. In Delphi scheinbar nur im TLabel?

Zitat von jaenicke:

Zitat von Guido Eisenbeis:

... für DrawText wird ein hdc benötigt, was nicht bei allen in Frage kommenden Controls der Fall ist.

Bei welchen denn? Nicht bei allen kommst du direkt heran, aber eigentlich haben alle einen Device Context.

Ok, ich sitze jetzt schon über eine halbe Stunde nur daran, ein blöden Text mit DrawText auf ein Panel zu bekommen. (Habs auch mit Form1 versucht.) Ich habe bestimmt 1 Mio. Codes von MSDN bis Was-weiß-ich-was-WebSites und Foren (auch hier) probiert und bin am verzweifen! Ich krieg ums Verrecken keinen Text mit Panel zu sehen!! Das kenn ich von "damals", als ich noch mit VB (Classic) programmierte. Und genau aus diesem Grund wollte ich DrawTest nicht haben. Das nervt einfach nur.

Es folgt ein Beispiel-Code, den ich ausprobiert habe. Bitte zeig mir doch den Fehler, oder einen funktionierenden Code. Und glaub mir, ich hab zig verschieden Kombinationen der Paramter und Funktionen probiert!

Delphi-Quellcode:

procedure TForm1.FormResize(Sender: TObject);
var
  Txt: String;
  h: HDC;
  Rct: TRect;
begin
  Txt := 'Dies ist ein Beispiel-Text.';
  //h := GetDC(Panel1.Handle);
  //h := GetWindowDC(Panel1.Handle);
  GetWindowRect(Panel1.Handle, Rct);

  DrawText(Panel1.Canvas.Handle, PChar(Txt), Length(Txt), Rct,
    DT_SINGLELINE or DT_LEFT or DT_VCENTER or DT_END_ELLIPSIS);
end;

Guido.

[stahli]

Das wird so nix werden.
Wenn sich das Panel dann zeichnet übermalt es seinen Canvas ja wieder.
Du musst also ein eigenen Panel ableiten und die Paint-Methode mit override überschreiben.
Dazu kannst Du alles machen wie das originale Panel (Fläche füllen, Rahmen zeichnen etc.) und nur die Textausgabe an Deine Zwecke anpassen.

[Guido Eisenbeis]

Vielen Dank Stahli!

Das hat mir jetzt eine riesen Stein von der Seele purzeln lassen. Ich dachte schon, ich wär zu blöd, um ein "Hallo Welt" in ein Panel zu bekommen.

Zitat von stahli:

Das wird so nix werden.
Wenn sich das Panel dann zeichnet übermalt es seinen Canvas ja wieder.
Du musst also ein eigenen Panel ableiten und die Paint-Methode mit override überschreiben.
Dazu kannst Du alles machen wie das originale Panel (Fläche füllen, Rahmen zeichnen etc.) und nur die Textausgabe an Deine Zwecke anpassen.

Von Anfang an hatte ich das Gefühl, dass das so läuft. Aus Urzeiten hatte ich diese Probleme noch im Hinterkopf und mein Gefühl hat mich nicht getrogen. Siehe hier:

Zitat von Guido Eisenbeis:

DrawText will ich nicht.

Und deshalb habe ich auch auf einem String als Resultat bestanden, der problemlos weiterverarbeitet werden kann. DrawText ist also hinfällig, denn es sollen ja verschiedene Controls übergeben werden können, ohne jedes einzelne auf seinen Typ zu prüfen. Dementsprechend ist es vom Aufwand her ja unsinnig, was-weiß-ich-wieviele Controls abzuleiten und Methoden zu überschreiben.

Vielen Dank für diese Info André!

Guido.