Вобщем на данный момент при старте Delphi у меня для всех проэктов стандартно стоит шрифт MS Sans Serif, но, мне нужно чтобы при загрузке Delphi стандартно стоял шрифт Tahoma, где именно в настройках Delphi это можно сделать? (читать всё…)

(читать всё…)

(читать всё…)

(читать всё…)

Есть такой способ с помощью AddfontResource+Sendmessage(broadca st, fontchanged…), но он не позволяет сохранить себе шрифт (в Tfont) а можно лишь оперировать понятием fontface(оно же Tfont.name), мне это не подходит. (читать всё…)

(читать всё…)

Stilet:

Вполне.
Выставь свойство Style:=lbOwnerDrawFixed
И опиши два обработчика:

procedure TForm1.ListBox1DrawItem(Control: TWinControl; Index: Integer;
Rect: TRect; State: TOwnerDrawState);
begin
   with TListBox(Control) do begin
     if index=ItemIndex then
     Canvas.font.Color:=clred
     else
       Canvas.font.Color:=clblack;
     Canvas.FillRect(rect);
     Canvas.TextOut(rect.Left,rect.Top,items[index]);
   end;
end;

procedure TForm1.ListBox1Click(Sender: TObject);
begin
   ListBox1.Repaint;
end;

Тема на форуме