Вероятно иногда бывает полезным установить шрифт с
фиксированной шириной символов в вашем 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);
|
|
Изменение шрифта в Listbox