Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2006.03.12;
Скачать: CL | DM;

Вниз

Как получить список фонтов в WideString?   Найти похожие ветки 

 
Huk   (2006-02-08 15:27) [0]

Мастера, добрый день!
Есть такая функция EnumFonts. Юзаю так:
EnumFonts(DC, nil, @EnumFontsProc, Pointer(Test.Strings));
Если Test.Strings не юникодный, то начинаются траблы, вместо данных - кубики.
Спасибо за помощь.


 
Huk   (2006-02-08 15:33) [1]

Вопрос снимается.
EnumFontsW, EnumFontsProcW, TLogFontW - рулят.


 
Huk   (2006-02-08 18:47) [2]

Мастера, подскажите, как сделать такой список, как верде - каждая строка отображается своим шрифтом?


 
Джо ©   (2006-02-08 18:55) [3]

Двигайся в таком направлении.

Выставь у ComboBox.Style := csOwnerDrawFixed, в событии OnDrawItem:

procedure TForm1.ComboBox1DrawItem(Control: TWinControl; Index: Integer;
 Rect: TRect; State: TOwnerDrawState);
begin
 with TComboBox(Control).Canvas do
 begin
   if odSelected in State then
   begin
     Brush.Color := clActiveCaption;
     Font.Color := clHighlightText;
   end
   else
   begin
     Brush.Color := clWindow;
     Font.Color := clWindowText;
   end;
   FillRect (Rect);

   Font.Name := TComboBox(Control).Items[Index];
   TextOut(Rect.Left,Rect.Top,TComboBox(Control).Items[Index]);
 end;
end;


Ну, и заполнить список:
procedure TForm1.Button1Click(Sender: TObject);
begin
 ComboBox1.Items.Assign(Screen.Fonts);
end;



Страницы: 1 вся ветка

Текущий архив: 2006.03.12;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.045 c
5-1126694158
Juice
2005-09-14 14:35
2006.03.12
Вложенный компонент


2-1140728066
lex85
2006-02-23 23:54
2006.03.12
кнопка button1


15-1140166465
Игорь Шевченко
2006-02-17 11:54
2006.03.12
С возвращением к жизни, delphimaster!


15-1139568770
digger
2006-02-10 13:52
2006.03.12
аська глючит


2-1140717651
redlord
2006-02-23 21:00
2006.03.12
winsock