can the tlistbox be set to scroll horizontally?  if so how?  i didn't
see an option in the object inspector.

hi Darrin,

Just Today I saw a ListBox on the Delphi Super page that had this option,
so would be a good idea to look there and search for ListBox

Regards

Alex

laserjet <laser...@concentric.net> wrote in article
<33AAA073.8643C...@concentric.net>...

On Fri, 20 Jun 1997 09:23:31 -0600, laserjet <laser...@concentric.net>
wrote:

On Fri, 20 Jun 1997 09:23:31 -0600, laserjet <laser...@concentric.net>
wrote:

{ This function calculates the largest line length in a list box }
function MaxListLineLength(lbSender: TListBox): integer;
var
  Width, i: integer;

begin
  Result := 0;
  for i := 0 to lbSender.Items.Count-1 do begin
    Width := lbSender.Canvas.TextWidth(lbSender.Items[i]);
    if Width > Result then Result := Width;
  end;
end;

Then use this next function to actually set the width and enable the
scrollbar

{ Enable the horizontal scroll bar on a list box }
procedure EnableHorizontalScroll(lbSender: TListBox);
var
  MaxWidth: integer;

begin
  lbSender.Font.Assign(lbSender.Font);
  MaxWidth := MaxListLineLength(lbSender) + 20; { Add a little slack }
  SendMessage(lbSender.Handle, lb_SetHorizontalExtent, MaxWidth, 0);
end;

Hope this helps

Try this:

SendMessage(ListBox3.Handle, LB_SETHORIZONTALEXTENT,
              ListBox3.Canvas.TextWidth('A') * nnn, 0 );  }

replacing "nnn" with the actual width of your widest line (you'll have
to calculate if you use proportional fonts).

There is no way to scroll a ListBox horizontally (sorry)
but you have 2 solutions to avoid this problme:
1 -- use a ListView with the right options (it should be in the Win95 tab)
2 -- create a new control derived from TListBox and use the ownerdraw mode
to do what you want to have (I did it with Visual C++ and I thing it's
possible on Delphi)

                                                Christophe CAEL
                                                chc...@infonie.fr

laserjet <laser...@concentric.net> a crit dans l'article
<33AAA073.8643C...@concentric.net>...

To insert a horizontal scroll in yor listbox, add the following
instruction in the FormCreate event.

SendMessage(Listbox1.Handle,LB_SetHorizontalExtent, nnnn, LongInt(0));

then make sure nnnn is larger than your listbox width and you have a
scroll bar.
                                            Good Luck Jim
On Tue, 01 Jul 1997 08:10:20 GMT, gene...@linkg.co.uk (LINK Group