Wvt_ChooseFont return incorrect parameter FUNC MAIN WVT_CORE() WVT_UTILS() choose_FONT() CLS INKEY(0) RETURN
STATIC FUNCTION choose_FONT static A_FONT[8] a_font := Wvt_ChooseFont(a_font[1],a_font[2],a_font[3],a_font[4],a_font[5], a_font[6], a_font[7], a_font[8]) ? a_font[1] ? a_font[2] ? a_font[3] // IY RETURN ALWAYS 0 ? a_font[4] ? a_font[5] ? a_font[6] ? a_font[7] ? a_font[8] INKEY(0) Hb_GtInfo( HB_GTI_FONTNAME,a_font[1]) Hb_GtInfo( HB_GTI_FONTWIDTH, a_font[2] ) Hb_GtInfo( HB_GTI_FONTSIZE ,a_font[3] ) return .T. Massimo Belgrano _______________________________________________ Harbour mailing list [email protected] http://lists.harbour-project.org/mailman/listinfo/harbour
