Pressing f11 does not change font in harbour but does in xharbour
Must I use Hb_GtInfo( HB_GTI_FONTNAME/HB_GTI_FONTWIDTH/HB_GTI_FONTSIZE
,param)?
setkey(K_SH_F11,{|| choose_FONT()})
a=100
@ 1,1 say "test" get a
Read
func 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])
// only if changed are returned
screenWidth := Wvt_GetScreenWidth()
screenHeight := Wvt_GetScreenHeight()
x_Ratio=0.85
X_ALT=a_font[2] // int(screenHeight/maxrow() * x_ratio)
X_LAR=a_font[3] // Int( screenWidth/maxcol()-.5)
Wvt_setFont(a_font[1],X_ALT,X_LAR,a_font[4],a_font[5])
Wvt_SetCodePage(255)
return .T.
Massimo Belgrano
_______________________________________________
Harbour mailing list
[email protected]
http://lists.harbour-project.org/mailman/listinfo/harbour
