VirtualTreeView Textlänge begrenzen mit '...'

[DataCool]

Hi Leute,

sollte eigentlich einfach sein aber irgentwie komme ich das Problem nicht ganz aus der Welt.

Ich möchte innerhalb eines VirtualStringTree's die horizontale Scrollbar ausblenden und Text die "zu lang" sind mit '...' anzeigen.
Das Scollbar ausblenden ist ja kein Problem, der Anzeige-Text wird dynamisch im OnGetText-Event gesetzt.
Colmuns gibt es keine.

Ich hatte jetzt schon versucht mit :

Delphi-Quellcode:

  // Textbreite ermitteln
  iTextWidth := vst_xyz.Canvas.TextWidth(pNodeData^.NodeCaption);
  // Text zu breit ? Mit was vergleichen ?

Die Textbreite zu ermitteln, aber mit was soll ich die Breite vergleichen ?

- Width des VirtualTreeview berücksichtigt nicht die Nodeeinrückung

-

Delphi-Quellcode:

   ARect := vst_xyz.Canvas.ClipRect;
   iWidth := ARect.Right - ARect.Left;

liefert leider auch nicht das gewünschte Ergebnis

-

Delphi-Quellcode:

iWidth := vst_xyz.Width - (vst_xyz.Indent * vst_xyz.GetNodeLevel(Node));

leider auch nicht

Habe ich einen Denkfehler oder gibt es gar eine Property im VST dafür die ich übersehen habe ?

Greetz Data

[CoLT]

Im OnBeforeCellPaint() kannst du auf das ContentRect zugreifen und die Breite des sichtbaren Bereichs errechnen (Da musst du dann noch 2* den TextMargin zu addieren).

Speicher dir das Ergebnis zb in dem Column.Tag oder im dirket im Header.Tag, wenn du ohne Columns arbeitest,

Eine 0 würde ich verwenden, wenn der Platz ausreicht für den Text und alles >0 mit der Funktion VirtualTrees.ShortenString(); kürzen.


CoLT

[Hawkeye219]

Hi,

am einfachsten ist es wahrscheinlich, eine einzige Spalte ohne Anzeige des Headers einzurichten. In den Optionen für den Header stellst du hoAutoResize auf den Wert True, die Eigenschaft Header.AutoSizeIndex stellst du auf den Wert 0. Dadurch nimmt die Spalte die gesamte Breite des Trees ein, zu lange Texte werden dann vom VST automatisch durch "..." gekennzeichnet.

Gruß Hawkeye

[mirage228]

Ich werfe mal das Ereignis OnShortenString in den Raum ;-)

[DataCool]

@Hawkeye,Colt:
Thanks zum 2ten, in meinem Fall nehme ich jetzt die automatische Variante von Hawkeye ;-)

@Mirage:
Auch interessant zu wissen, aber kürzen muss ich den String dort selber.

Greetz Data

[mirage228]

Zitat:

Zitat von DataCool

@Mirage:
Auch interessant zu wissen, aber kürzen muss ich den String dort selber.

Das stimmt, wobei Du z.B. für Dateinamen "MinimizeName" aus der FileCtrl Unit nehmen kannst:

Delphi-Quellcode:

  if TargetCanvas.TextWidth(S) > TextSpace then
  begin
    Result := MinimizeName(S, TargetCanvas, TextSpace);
    Done := True;
  end;

Viele Grüße

[sh17]

Oder Du nimmst

Delphi-Quellcode:

S := ShortenString(PaintInfo.Canvas.Handle, S, R.Right - R.Left, 0);

Dann wird alles berechnet

[DataCool]

Die Frage ist jetzt ausreichend mit mehreren Möglichkeiten beantwortet,
denke das ist jetzt für jeden die richtige Lösung dabei,
nochmal Danke an alle,

Greetz Data