whats new ¦  programming tips ¦  indy articles ¦  intraweb articles ¦  informations ¦  links ¦  interviews
 misc ¦  tutorials ¦  Add&Win Game

Tips (1547)

Database (90)
Files (137)
Forms (107)
Graphic (115)
IDE (21)
Indy (5)
Internet / LAN (131)
IntraWeb (0)
Math (76)
Misc (127)
Multimedia (45)
Objects/
ActiveX (51)

OpenTools API (3)
Printing (35)
Strings (83)
System (268)
VCL (243)

Top15

Tips sort by
component


Search Tip

Add new Tip

Add&Win Game

Advertising

41 Visitors Online


 
...show Columns in a TListBox using Tabulators of different widths?
Autor: Thomas Stutz
[ Print tip ]  

Tip Rating (61):  
     




procedure TForm1.Button1Click(Sender: TObject);
const
  
// The maximum number of Tabs
  // Die Anzahl der maximal aufretenen Tabs eintragen
  
MAX_TABS = 4;
  Tab = #9;
var
  
Tabulators: array[0..MAX_TABS] of Integer;
begin
  
{ Set the Tabulator Widths / Tabulatorweiten festlegen}
  
Tabulators[0] := 70;
  Tabulators[1] := 120;
  Tabulators[2] := 100;
  Tabulators[3] := 80;
  Listbox1.TabWidth := 1;
  { Set the Tabulators / Tabulatoren setzen }
  
SendMessage(ListBox1.Handle, LB_SETTABSTOPS, MAX_TABS, Longint(@Tabulators));
  { Add some Items / Items hinzufügen.}
  
Listbox1.Items.Add('Peter' + Tab + 'Meier' + Tab + '1234-56' + Tab + 'Otzlingen');
  Listbox1.Items.Add('Johann Jones' + Tab + 'Krauter' + Tab + '123-45');
end;

 

Rate this tip:

poor
very good


Copyright © by SwissDelphiCenter.ch
All trademarks are the sole property of their respective owners