FontDialog , . 7. , (), .
. 7
Font TFont, , .
MaxFontSize MinFontSize . 0 ( ), . ( , ), , . ... .
Device , : fdScreen ( ), fdPrinter , fdBoth .
Options :
fdAnsiOnly | Windows, |
fdApplyButton | , OnApply |
fdEffects | ( .) |
fdFixedPitchOnly | |
fdForceFontExist | , |
fdLimitSize | MaxFontSize MinFontSize, |
fdNoFaceSel | |
fdNoOEMFonts | OEM |
fdScalableOnly | , ( bitmap) |
fdNoSimulations | , , , |
fdNoSizeSel | |
fdNoStyleSel | |
fdNoVectorFonts | ( Roman Script Windows 1.0) |
fdShowHelp | |
fdTrueTypeOnly | TrueType |
fdWysiwyg | , , , |
, fdEffects, .
|
|
fdApplyButton, OnApply, , , .
FontDialog. Memo1, . FontDialog, FontDialog1. :
if FontDialog1.Execute then Memo1.Font.Assign(FontDialog1.Font);, , , FontDialog1.Font, , Memo1.Font. .
FontDialog1 fdApplyButton, OnApply:
Memo1.Font.Assign(FontDialog1.Font);Memo1, . , .