Советы по Delphi
Изменение шрифта в Listbox
Вероятно иногда бывает полезным установить шрифт с фиксированной шириной символов в вашем Listbox.
Есть одно решение данной проблемы - использовать системные фиксированные шрифты - System-Fixed-Font (по крайней мере в Windows 3.11 -- как насчет Windows 95?). Единственную вещь, которую вы должны сделать - установить шрифт программным путем в момент создания формы.
Вот пример (здесь LB - ListBox), где шрифт устанавливается после добавления нескольких строк в ListBox:
|
LB.Items.Clear;
for i := 0 to (SL.Count)-1 do begin LB.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); |
