Delphi World - Список шрифтов, совместимых одновременно с экраном и с принтером
Delphi World - это проект, являющийся сборником статей и малодокументированных возможностей  по программированию в среде Delphi. Здесь вы найдёте работы по следующим категориям: delphi, delfi, borland, bds, дельфи, делфи, дэльфи, дэлфи, programming, example, программирование, исходные коды, code, исходники, source, sources, сорцы, сорсы, soft, programs, программы, and, how, delphiworld, базы данных, графика, игры, интернет, сети, компоненты, классы, мультимедиа, ос, железо, программа, интерфейс, рабочий стол, синтаксис, технологии, файловая система...
Список шрифтов, совместимых одновременно с экраном и с принтером

Эти установки должны показать шрифты совместимые либо с принтером либо с экраном. В примере диалог Windows ChooseFont вызывается напрямую чтобы показать список шрифтов, совместимых одновременно и с экраном и с принтером.

Пример:


uses Printers, CommDlg;

procedure TForm1.Button1Click(Sender: TObject);
 var cf: TChooseFont; lf: TLogFont; tf: TFont;
begin
  if PrintDialog1.Execute then
  begin
    cf.hdc := Printer.Handle;
    cf.lpLogFont := @lf;
    cf.iPointSize := Form1.Canvas.Font.Size * 10;
    cf.Flags := CF_BOTH or CF_INITTOLOGFONTSTRUCT or
     CF_EFFECTS or CF_SCALABLEONLY or CF_WYSIWYG;
    cf.rgbColors := Form1.Canvas.Font.Color;
    tf.COlor := cf.RgbColors;
    Form1.Canvas.Font.Assign(tf);
    tf.Free;
    Form1.Canvas.TextOut(10, 10, 'Test');
  end;
end;

Проект Delphi World © Выпуск 2002 - 2017
Автор проекта: Эксклюзивные курсы программирования