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.

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

zusammenfalten · markieren

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;

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.

@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:

markieren

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;

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:

EllipsisPosition.png

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.

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

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!

zusammenfalten · markieren

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.