Карта сайта Kansoftware
НОВОСТИУСЛУГИРЕШЕНИЯКОНТАКТЫ
Разработка программного обеспечения
KANSoftWare

Отображение списка шрифтов

Delphi , Графика и Игры , Шрифты

Отображение списка шрифтов

Оформил: DeeCo
Автор: http://www.swissdelphicenter.ch

//With a Callback function: 
//************************ 

function EnumFontClBack(var lp: TEnumLogFont;
   var tm: TNewTextMetric;
   dwType: DWORD;
   lpData: lParam): Integer; stdcall;
 begin
   Result := 1;
   with TForm1(lpData), Combobox1 do
   begin
     Items.Add(lp.elfLogFont.lfFaceName);
   end;
 end;


 procedure TForm1.FormShow(Sender: TObject);
 begin
   EnumFontFamilies(Canvas.Handle, nil, @EnumFontClBack, Integer(Self));
 end;

 procedure TForm1.ComboBox1Change(Sender: TObject);
 begin
   label1.Font.Name := Combobox1.Text;
 end;


 // Easier Way: 
//***************************************** 

{ 
 To show the items in the corresponding font 
 The Style of the Listbox should be lbOwnerDrawVariable 
}


     procedure TForm1.ListBox1DrawItem(Control: TWinControl; Index: Integer;
   Rect: TRect; State: TOwnerDrawState);
 begin
   with ListBox1 do
   begin
     Canvas.fillrect(rect);
     Canvas.Font.Style := [fsbold];
     Canvas.Font.Name  := Listbox1.Items[Index];
     Canvas.textout(rect.Left, rect.Top, Listbox1.Items[Index]);
   end;
 end;

 procedure TForm1.FormCreate(Sender: TObject);
 begin
   ComboBox1.Items := Screen.Fonts;
 end;

 procedure TForm1.ComboBox1Change(Sender: TObject);
 begin
   label1.Font.Name := ComboBox1.Items[ComboBox1.ItemIndex];
 end;

Статья Отображение списка шрифтов раздела Графика и Игры Шрифты может быть полезна для разработчиков на Delphi и FreePascal.


Комментарии и вопросы


Ваше мнение или вопрос к статье в виде простого текста (Tag <a href=... Disabled). Все комментарии модерируются, модератор оставляет за собой право удалить непонравившейся ему комментарий.

заголовок

e-mail

Ваше имя

Сообщение

Введите код




Материалы статей собраны из открытых источников, владелец сайта не претендует на авторство. Там где авторство установить не удалось, материал подаётся без имени автора. В случае если Вы считаете, что Ваши права нарушены, пожалуйста, свяжитесь с владельцем сайта.



:: Главная :: Шрифты ::


реклама

::


©KANSoftWare (разработка программного обеспечения, создание программ, создание интерактивных сайтов), 2007
Top.Mail.Ru Rambler's Top100
17.05.2021 03:13:04/0.00045514106750488/0