Создание шрифта

{ Copyright © 1998 by Delphi 4 Developer's Guide - Xavier Pacheco and Steve Teixeira
}

unit

FontInfoFrm;
interface

uses

  SysUtils, WinTypes, WinProcs, Messages, Classes, Graphics, Controls,   Forms, Dialogs, ExtCtrls, StdCtrls;
type

  TFontInfoForm = class

(TForm)     lbFontInfo: TListBox;     procedure

FormActivate(Sender: TObject);   private

    { Private declarations }   public

    { Public declarations }   end

;

var

  FontInfoForm: TFontInfoForm;
implementation

uses

MainFrm;

{$R *.DFM}
procedure

TFontInfoForm.FormActivate(Sender: TObject); const

  PITCH_MASK: byte = $0F; // Set the lower order four bits
  FAMILY_MASK: byte = $F0; // Set to higher order four bits
var

  TxMetric: TTextMetric;   FaceName: st  

Другое по теме:

• Как проинсталлировать свои шрифты
• Определение типа используемого шрифта
• PopupComponent и шрифты