Multi columns TListBox 2

[jbpelletier]

Hi,

i have difficulties adding text in columns of a multi columns TlistBox. Im only able to add text in the first column... trying to find the syntax on the web and in the help but no result...:|

anyone can give me the correct syntax?

tanx
jb

 

[gcaramia]

Try:

ListBox1.Items.Add('xxxxx'^I'yyyyy'^I'zzzzzz') ;

Giovanni Caramia

 

[Nordlund]

Hi.
The main thing is that the items in the Listbox is more than the height of the listbox. The normal case would be that the Vertical scrollbar would be shown, but when you are using columns, you get the rest of the items in the next column.

Example: Change the columns property to 3, and add 30 Items in the listbox. Set the Height of the listbox to 180, and the width to 350. There you have a column example.

To add a separator in a normal listbox (Type Code and description), you have to write a new OnDrawItem Event.

Change the property Style to lbOwnerDrawFixed and add
this text in the listbox:
Column1,Column 2
Remember to change Property Columns to 0

Write this in the Listbox OnDrawItem event

procedure TForm1.ListBox1DrawItem(Control: TWinControl; Index: Integer; Rect: TRect; State: TOwnerDrawState);
const
  SEP = ',';
var
  rowStr: String;
begin
  with TListbox(Control) do
  begin
    Canvas.FillRect(Rect);

    rowStr := Items[Index];

    Canvas.TextOut(Rect.Left, Rect.Top, Copy(rowStr, 1, Pos(SEP, rowStr) -1));
    Delete(rowStr, 1, Pos(SEP, rowStr));

    Canvas.TextOut(Rect.Left+100, Rect.Top, rowStr);
  end;
end;

~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
There is always another way to solve it, but I prefer my way.

 

[jbpelletier]

tanx Nordlund

"The normal case would be that the Vertical scrollbar would be shown, but when you are using columns, you get the rest of the items in the next column."

thats not what i was looking for, i was expecting a real 2 (or more) columns listbox.

jb

 

[jbpelletier]

sry error on star :S
here's yours nordlund
jb