Советы по Delphi
FileListBox с двумя колонками...как
| with TDirectoryListBox(FileListBox1) dobeginColumns := 2;SendMessage(Handle, LB_SETCOLUMNWIDTH,LoWord(GetTextExtent(Canvas.Handle, 'WWWWWWWW.WWW', 12)), 0);end; |
Успехов.
Kurt [000653]
| with TDirectoryListBox(FileListBox1) dobeginColumns := 2;SendMessage(Handle, LB_SETCOLUMNWIDTH,LoWord(GetTextExtent(Canvas.Handle, 'WWWWWWWW.WWW', 12)), 0);end; |
Успехов.
Kurt [000653]