IF VERSION (5) <700 RETURN. T. ENDIFThe function becomes:,
*--------------------------------------------------------- * PROCEDURE IsGdipFont(tcFontName, tcFontStyle) *--------------------------------------------------------- * Validates that the font and style are permitted by GDI+ * Thanks to Cesar Chalom (Brazil) *--------------------------------------------------------- PROCEDURE IsGdipFont(tcFontName, tcFontStyle) * The Gdi+ API declarations were "Aliased" to avoid problems * with other possible Gdi+ classes working at the same time IF VERSION(5) < 700 RETURN .T. ENDIF IF EMPTY(tcFontName) RETURN .F. ENDIF IF EMPTY(tcFontStyle) tcFontStyle = "N" ENDIF ... ... ... continues to functionPlease keep me informed of the results.