{
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