Unit FontCtls |
Classes |
TFontClass -
TFontComboBox -
TFontListBox -
TFontStrList -
Functions |
Register -
Types |
EValidateFont
FontTypes
TBitmapArray
TFilterOption
TFilterOptions
Constants |
Variables |
Functions |
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 |