[Sereby]

Hoi,

i have a function for TChecklistbox which adds a Horizontal Scrollbar to the CheckListBox.
This one does work.. but when i try it for TsCheckListBox it is not working.

any idea why?

CODE

procedure AddHScroll(DestListBox: TsCheckListBox);
const LB_SETHORIZONTALEXTENT = $0194;
var   I, intWidth, intMaxWidth: Integer;
begin
  intMaxWidth := 0;
  for I := 0 to DestListBox.Items.Count – 1 do
  begin
    intWidth := DestListBox.Canvas.TextWidth(DestListBox.Items.Strings + 'X');
    if (intMaxWidth < intWidth) then
      intMaxWidth := intWidth;
  end;
  SendMessage(DestListBox.Handle, LB_SETHORIZONTALEXTENT, intMaxWidth + 20, 0);
end;

[Support]

Hello

Try to define a font of Canvas before calling TextWidth (I mean DestListBox.Canvas.Font.Assign(DestListBox.Font)).
This horizontal scrollbar was tested already and was working well..

[Sereby]

hi,

you are right.. in a fresh project it is working with this.. but in my big project it is not working.

i was successful in creating a demo-app for you!

Hope you can find the bug

thanks

[Support]

Thank you for demo.
This solution (LB_SETHORIZONTALEXTENT message) working if listbox is visible already seems.
Try to call AddHScroll after UpdateFrame…

[Sereby]

thanks.

but with the old TCheckListBox it is working without this!

[Author]

Posts