Изменение шрифта в 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);