Советы по Delphi
Изменение шрифта в Listbox
Вероятно иногда бывает полезным установить шрифт с фиксированной шириной символов в вашем Listbox.
Есть одно решение данной проблемы - использовать системные фиксированные шрифты - System-Fixed-Font (по крайней мере в Windows 3.11 -- как насчет Windows 95?). Единственную вещь, которую вы должны сделать - установить шрифт программным путем в момент создания формы.
Вот пример (здесь LB - ListBox), где шрифт устанавливается после добавления нескольких строк в ListBox:
| LB.Items.Clear; for i := 0 to (SL.Count)-1 dobeginLB.Items.Add(Copy(SL.Strings[i], 1, j-1));end; { !!!!! ТЕПЕРЬ УСТАНАВЛИВАЕМ ЖЕЛАЕМЫЙ ШРИФТ !!!!! }{ System_Fixed_Font или ANSI_Fixed_Font } SendMessage(LB.handle, wm_SetFont, GetStockObject(System_Fixed_Font), 1); |
