@01,02 SAY "uke : " ;
PROPERTIES {|oGet,oControl| SetControlProp( oGet, oControl, "font", QFont( "Aman", 12, QFont_Bold, .T. ) ) }
//-------- @.... SAY.... PROPERTIES give compiling syntax error. is possible to implement this or not.
@ 1,18 GET cNm pict "@X" color "W+/B" ;
PROPERTIES {|oGet,oControl| SetControlProp( oGet, oControl, "font", QFont( "Aman", 12, QFont_Bold, .T. ) ) }
//----------- @.... GET.....PROPERTIES work fine there is no error.
//----------------------------------------------------------
STATIC FUNCTION SetControlProp( oGet, oControl, cProp, xValue )
HB_SYMBOL_UNUSED( oGet )
SWITCH cProp
CASE "tooltip"
oControl:setToolTip( xValue )
EXIT
CASE "font"
oControl:setFont( xValue )
EXIT
ENDSWITCH
RETURN NIL
//-----------------------------------
Thanks & Regards,
Anupam