TFont=GETFONT( )
TfontName=alltrim(LEFT(TFont,AT(',',Tfont,1)-1))
Thisform.Edit1.FontName=TFontName
nStartP=AT(',',Tfont,1)+1
nEndP=AT(',',TFont,2)-1-AT(',',Tfont,1)
TFontSize=INT(VAL(ALLTRIM(SUBSTR(TFont,NstartP,nEndP))))
Thisform.edit1.FontSize=TFontSize
TFontStyle=ALLTRIM(SUBSTR(TFont,AT(',',TFont,2)+1))
DO CASE
CASE TFontStyle="B"
Thisform.Edit1.FontBold=.T.
Thisform.Edit1.Fontitalic=.F.
CASE TFontStyle="I"
Thisform.Edit1.FontBold=.F.
Thisform.Edit1.Fontitalic=.T.
CASE TFontStyle="BI"
Thisform.Edit1.FontBold=.T.
Thisform.Edit1.Fontitalic=.t.
OTHERWISE
Thisform.Edit1.FontBold=.F.
Thisform.Edit1.FontItalic=.F.
ENDCASe