Unit FontCtls

Classes

TFontClass -
TFontComboBox -
TFontListBox -
TFontStrList -

Functions

Register -

Types

EValidateFont
FontTypes
TBitmapArray
TFilterOption
TFilterOptions

Constants

Variables


Functions


procedure Register;


Types


EValidateFont = procedure (Sender: TObject; Font: TFontClass; var accept:Boolean) of object

FontTypes = (PS, TTF, RASTER, UNKNOWN);
Two controls for choosing installed fonts for Delphi 2, 32-bit. Slight adjustments necessary for use under Delphi 1. They show TTF, Type1 and bitmap fonts with individual bitmaps. No more fuss with FontDialog! Suggestions/improvements welcome. ----------------------------------------------------------------------- Quality freeware from Sight&Sound, Slovenia : http://www.sight-sound.si Version 1.0: release date 15.11.1996
TBitmapArray = array [0..3] of TBitmap;

TFilterOption = (ShowTrueType, ShowPostScript, ShowRaster);

TFilterOptions = Set of TFilterOption

Constants


Variables