Delphi - объектно-ориентированный язык программирования, разработанный компанией Borland в 1995 году. Он основан на языке программирования Pascal, но имеет более расширенные возможности и добавлены новые функции.
Delphi является интегрированной средой разработки (IDE), которая позволяет разрабатывать программное обеспечение для различных платформ, включая Windows, macOS, Android и iOS. Delphi достигает многоплатформенности с помощью...
{
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