Недавно добавленные исходники

•  Animation Loaders  640

•  DeLiKaTeS Tetris (Тетрис)  5 653

•  TDictionary Custom Sort  7 612

•  Fast Watermark Sources  7 304

•  3D Designer  10 501

•  Sik Screen Capture  7 821

•  Patch Maker  8 050

•  Айболит (remote control)  8 106

•  ListBox Drag & Drop  6 914

•  Доска для игры Реверси  100 048

•  Графические эффекты  8 171

•  Рисование по маске  7 571

•  Перетаскивание изображений  6 175

•  Canvas Drawing  6 541

•  Рисование Луны  6 468

•  Поворот изображения  5 649

•  Рисование стержней  4 569

•  Paint on Shape  3 276

•  Генератор кроссвордов  4 262

•  Головоломка Paletto  3 397

•  Теорема Монжа об окружностях  4 225

•  Пазл Numbrix  2 741

•  Заборы и коммивояжеры  3 641

•  Игра HIP  2 446

•  Игра Go (Го)  2 429

•  Симулятор лифта  2 835

•  Программа укладки плитки  2 280

•  Генератор лабиринта  2 989

•  Проверка числового ввода  2 499

•  HEX View  2 902

 
скрыть

  Форум  

Delphi FAQ - Часто задаваемые вопросы

| Базы данных | Графика и Игры | Интернет и Сети | Компоненты и Классы | Мультимедиа |
| ОС и Железо | Программа и Интерфейс | Рабочий стол | Синтаксис | Технологии | Файловая система |



Delphi Sources

FileListBox с двумя колонками



Автор: Kurt

...как сказал Майкл, вы можете сделать количество колонок > 1. Но, как это имеет место в TDirectoryListBox, колонки перекрывают одна другую. Я действительно не рекомендую это из-за потенциально возможных конфликтов во время изменения шрифта, но вы могли бы сделать по-другому:


with TDirectoryListBox(FileListBox1) do
begin
  Columns := 2;
  SendMessage(Handle, LB_SETCOLUMNWIDTH,
  LoWord(GetTextExtent(Canvas.Handle, 'WWWWWWWW.WWW', 12)), 0);
end;





Похожие по теме исходники

File icons in TFileListBox




Copyright © 2004-2026 "Delphi Sources" by «SiteAnalyzer». Delphi World FAQ

Группа ВКонтакте