Hallo!
Habe eine ListBox und will bei Änderungen der Font.Size - größe die
Horizontalle Scrollbar anpassen.
Funktioniert beim einlesen soweit alles.
Sobald aber Font.Size geändert wird(derzeit über einen Button) ist's
mit der Scrollbar-breite vorbei!!!
Beim Debugen kommt mir vor alls würde die ListBox von der Fontänderung
nichts mitbekommen....
Wie stelle ich es nun an, damit die ListBox die änderung bemerkt...
Die Scrollbarbreite passe ich folgendermassen an:
Delphi-Quellcode:
for ic:= 0 to ComponentCount-1 do
begin
if (Components[ic] is TListBox )and
(TListBox(Components[ic]).Items.Count > 0)then
begin
w2:=0;
for i:= 0 to TListBox(Components[ic]).Items.Count-1 do
with TListBox(Components[ic])do
begin
w1:= Canvas.TextWidth(Items[i]);
if w2 < w1 then w2:= w1;
end;
SendMessage(TListBox(Components[ic]).Handle,
LB_SetHorizontalExtent, w2 + GetSystemMetrics(SM_CxFrame), 0);
end;
end;
[edit=SirThornberry]Delphi-Tag geschlossen. Mfg, SirThornberry[/edit]