Statusbar-Begrenzung?

[Minz]

Hallo,

ich benutze

Statusbar.panels[index].text

um Verzeichnispfade anzuzeigen.

Dummerweise zeigt die Bar nur eine bestimmte Anzahl an Zeichen an.
Weiß jemand wie ich das umgehen kann, so dass ich mehr anzeigen lassen kann?

Gruß Minz

[Jens Schumann]

Hallo Minz,
Du musst die Panelbreite der Textbreite anpassen.
Ich verwende dafür folgende procedure

Delphi-Quellcode:

procedure WriteToStatusBar(SB : TStatusbar; const T : String; Index : Integer);
var
  Panel :TStatusPanel;
begin
  Panel:=SB.Panels[Index];
  Panel.Width:=SB.Canvas.TextWidth(T)+10;
  Panel.Text:=T;
end;

[Minz]

Danke für die Antwort, aber es handelt sich nicht um eine grafische Begrenzung. Deinen Code verwendete ich schon.

Tatsächlich ist auch die Anzahl darstellbarer Zeichen begrenzt.