Enumerate windows fonts

From DataFlex Wiki
Jump to navigationJump to search
The printable version is no longer supported and may have rendering errors. Please update your browser bookmarks and please use the default browser print function instead.

How to enumerate windows fonts

The following code will use the enumerate_fonts method to enumerate all available windows fonts in a comboform. This method has been a hidden method in VDF since long and will become public starting from VDF16.1

   Object oComboFormForceFontName is a ComboForm
       Set Size to 13 100
       Set Location to 184 181
     
       Set Label to "Font"
       Set Label_Justification_Mode to JMode_Top
       Set Label_Col_Offset to 0
  
       Function USER_FONTNAME String facename Integer height Returns Integer
           If facename ne "" Begin 
               Send Combo_Add_Item facename
           End
       End_Function  // USER_FONTNAME
     
       Procedure LoadFonts
           Send Enumerate_Fonts ""
       End_Procedure  
       Send LoadFonts
   End_Object

Links

From topic on forum: Enum List of Windows Fonts ?