Listbox mit Scrollbar - Länge von Scrollbar einstellen

**benst**

Hi,
mit folgendem Code
SendMessage(Listbox1.Handle, LB_SETHORIZONTALEXTENT, 140, 0); bekomme ich eine Scrollbar in eine Listbox. Wie kann ich es aber anstellen, dass die Scrollbar an den Inhalt angepasst wird? Also, dass wenn der Text länger wird, die Scrollbar dann auch bis dahin scrollen kann - es wäre ja blöd einfach eine breite von 50000 einzutragen...
Ben
P.S.: Delphi 5 Standard

**SirThornberry**

es wird nix anderes übrig bleiben als alle eintrage durch zu gehen und mit Canvas.TextWidth die Breite des Textes zu ermitteln. Der breiteste Eintrag ist dann die Grundlage für die Breite der Scrollbar

markieren

Delphi-Quellcode:

			var

  lCount,

  lWidth  : Integer;

begin

  lWidth := 0;

  ListBox1.Canvas.Font.Assign(ListBox1.Font);

  for lCount := 0 to ListBox1.Items.Count - 1 do

    lWidth := Max(lWidth, Listbox1.Canvas.TextWidth(ListBox1.Items.Strings[lCount]));

  SendMessage(Listbox1.Handle, LB_SETHORIZONTALEXTENT, lWidth + 20, 0);

**benst**

Danke (Hatte keine Ahnung, wie man die Breite von Text bestimmt, aber jetzt bin ich mal wieder ein klein wenig schlauer.

)
Ben

Listbox mit Scrollbar - Länge von Scrollbar einstellen

Listbox mit Scrollbar - Länge von Scrollbar einstellen

Re: Listbox mit Scrollbar - Länge von Scrollbar einstellen

Re: Listbox mit Scrollbar - Länge von Scrollbar einstellen

Forumregeln

benst Registriert seit: 20. Jun 2004 155 Beiträge Delphi 5 Standard	#3 Re: Listbox mit Scrollbar - Länge von Scrollbar einstellen 14. Sep 2006, 10:13 Danke (Hatte keine Ahnung, wie man die Breite von Text bestimmt, aber jetzt bin ich mal wieder ein klein wenig schlauer. ) Ben
	Zitat