Недавно добавленные исходники

•  DeLiKaTeS Tetris (Тетрис)  4 215

•  TDictionary Custom Sort  6 266

•  Fast Watermark Sources  6 064

•  3D Designer  8 969

•  Sik Screen Capture  6 384

•  Patch Maker  6 810

•  Айболит (remote control)  6 792

•  ListBox Drag & Drop  5 667

•  Доска для игры Реверси  96 341

•  Графические эффекты  7 008

•  Рисование по маске  6 295

•  Перетаскивание изображений  5 181

•  Canvas Drawing  5 548

•  Рисование Луны  5 253

•  Поворот изображения  4 800

•  Рисование стержней  3 396

•  Paint on Shape  2 654

•  Генератор кроссвордов  3 539

•  Головоломка Paletto  2 827

•  Теорема Монжа об окружностях  3 639

•  Пазл Numbrix  2 380

•  Заборы и коммивояжеры  3 062

•  Игра HIP  2 018

•  Игра Go (Го)  1 942

•  Симулятор лифта  2 303

•  Программа укладки плитки  2 007

•  Генератор лабиринта  2 461

•  Проверка числового ввода  2 145

•  HEX View  2 479

•  Физический маятник  2 094

 
скрыть

  Форум  

Delphi FAQ - Часто задаваемые вопросы

| Базы данных | Графика и Игры | Интернет и Сети | Компоненты и Классы | Мультимедиа |
| ОС и Железо | Программа и Интерфейс | Рабочий стол | Синтаксис | Технологии | Файловая система |



Delphi Sources

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



Оформил: DeeCo

//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;




Похожие по теме исходники

Сортировка списка




Copyright © 2004-2025 "Delphi Sources" by BrokenByte Software. Delphi World FAQ

Группа ВКонтакте