Add a horizontal scrollbar to a listbox

	Print
	Email

Submitted on: 8/5/2000 11:56:06 PM
By: Bryan Hammond
Level: Intermediate
User Rating:

By 1 Users
Compatibility:Delphi 5, Delphi 4

Users have accessed this article 7913 times.

This code will add a horizontal scrollbar to a standard TListBox component using win32 api.

Terms of Agreement:
By using this article, you agree to the following terms...
1) You may use this article in your own programs (and may compile it into a program and distribute it in compiled format for languages that allow it) freely and with no charge.
2) You MAY NOT redistribute this article (for example to a web site) without written permission from the original author. Failure to do so is a violation of copyright laws.
3) You may link to this article from another website, but ONLY if it is not wrapped in a frame.
4) You will abide by any additional copyright restrictions which the author may have placed in the article or article's description.

procedure TForm1.Timer1Timer(Sender: TObject);

var

i,len,width: integer;

begin

  with listbox1 do

  begin

  width := 0;

  for i := 0 to items.count -1 do

  begin

  len := canvas.textwidth(items[i]);

  if len > width then width := len;

  end;

  //set listbox's horizontal scrollbar width

  Perform(LB_SETHORIZONTALEXTENT,width+100,0);

  end;

end;

Other 3 submission(s) by this author

Report Bad Submission

Your Vote!

Other User Comments

10/11/2000 3:02:20 AM:Nicky Sciberras
I think that the variable 'width' should be changed to something else (eg width1) as it is effecting the listbox's width as it is.

4/10/2002 11:49:02 AM:samar
its really help ful for me as i am beginer in delphi so

5/10/2002 3:22:06 AM:Petr Langer
boxlen := listbox.Perform(LB_GETHORIZONTALEXTENT, 0, 0) can also be useful for getting scrollbar size.

Add Your Feedback!

Note:Not only will your feedback be posted, but an email will be sent to the code's author in your name.

NOTICE: The author of this article has been kind enough to share it with you. If you have a criticism, please state it politely or it will be deleted.

For feedback not related to this particular article, please click here.