| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

Как получить список фонтов в WideString? [D6, WinXP]

Huk ©   (2006-02-08 15:27:00) 

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

---

Джо   (2006-02-08 18:55:00) [1]

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

Выставь у 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;


---

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

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

---

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

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

---

Наверх