Scalabium Software

SMReport Autogenerated
Knowledge for your independence'.
Home Delphi and C++Builder tips

#10: How can I add the horizontal scrollbar into listbox?

If you want to add a horizontal scrollbar in TListBox
(which have a vertical scrollbar only by default),
you need send a LB_SETHORIZONTALEXTENT message:
SendMessage(ListBox1.Handle, LB_SETHORIZONTALEXTENT, FMaxItemWidth, 0);

For example, the next code shows how you can scroll a data
with maximum width of item strings:

procedure TForm1.FormCreate(Sender: TObject);
var i, intWidth, intMaxWidth: Integer;
  intMaxWidth := 0;
  for i := 0 to ListBox1.Items.Count-1 do
    intWidth := ListBox1.Canvas.TextWidth(ListBox1.Items.Strings[i] + 'x');
    if intMaxWidth < intWidth then
      intMaxWidth := intWidth;
  SendMessage(ListBox1.Handle, LB_SETHORIZONTALEXTENT, intMaxWidth, 0);

Published: August 10, 1999

See also
SMImport suite
Viewer for TNEF-files (winmail.dat)
Protected Storage Viewer
Metafile Convert
Viewer for MS Outlook Messages
Paradox Viewer
DBISAM Password Recovery
SMMsg suite
DBExport tools

Contact to webmaster


Borland Software Code Gear Scalabium Delphi tips

Copyright© 1998-2018, Scalabium Software. All rights reserved.

SMReport Autogenerated