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]