Советы по 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);
[000148]



Содержание раздела