TOPIC:

oDlg := FontDialog{} 
	
	oMi := TypeOf(FontDialog):GetMethod("SetOption", BindingFlags.NonPublic | BindingFlags.Instance)  

	IF oMi != NULL 
		   
		// this enables the font description that is always shown in the left/bottom area of the VFP GetFont() dialog
		oMI:Invoke(oDlg, { CF_PRINTERFONTS, TRUE }) 
		
		// btw. Its possible to include fonts like Courier, FixedSys, Terminal
		// But since the .net FontDialog supports true type fonts only, trying to select e.g. FixedSys
		// would trigger the .net runtime error "only true type fonts are supported"!		       
		//
		// oMI:Invoke(oDlg, { 0x00040000L , FALSE  }) // CF_TTONLY 
		
    ENDIF 

 	oDlg:ShowEffects := FALSE 
	oDlg:ShowHelp := TRUE
	oDlg:MinSize := 4
	oDlg:MaxSize := 127

	
	lReturnCharSet := IIF ( IsNil ( nFontCharSet ) , FALSE , TRUE ) 
	
	IF oMi != NULL .and. ! lReturnCharSet 		
		// this disables the script combobox 
		oMI:Invoke(oDlg, { CF_NOSCRIPTSEL, TRUE })		
	ENDIF