Changing the Buffer Length of xbpSLE() object at Runtime
Posted: Sat Dec 27, 2014 2:58 am
Hi All
Merry Xmas and happy and prosperous new year.
oDB:Cadename := Space(50)
@ 1,1 DCSAY "Co&de:" GET oDB:CodeName ;
PICTURE "@K!" GETOBJECT oCodeName;
SAYSIZE 0 SAYRIGHT;
ACCELKEY xbeK_ALT_D GET_EVAL_WHEEL;
WHEN {|| oTB:nAction == 1};
DATALINK {|| Space(10)};
GETEVAL {|o| o:AutoSize := .t.};
GOTFOCUS {| x,y,o |o:showBalloonTip(XBP_TIPINFO,'Item Code',"Enter a unique item Code" )}
--------
Somewhere in this dialog, if a user click on a button and enter a number say 15, I want the above GET buffer to adjust to Length of 15. That is only to allow user to enter 15 characters.
Thanks.
Joe
Merry Xmas and happy and prosperous new year.
oDB:Cadename := Space(50)
@ 1,1 DCSAY "Co&de:" GET oDB:CodeName ;
PICTURE "@K!" GETOBJECT oCodeName;
SAYSIZE 0 SAYRIGHT;
ACCELKEY xbeK_ALT_D GET_EVAL_WHEEL;
WHEN {|| oTB:nAction == 1};
DATALINK {|| Space(10)};
GETEVAL {|o| o:AutoSize := .t.};
GOTFOCUS {| x,y,o |o:showBalloonTip(XBP_TIPINFO,'Item Code',"Enter a unique item Code" )}
--------
Somewhere in this dialog, if a user click on a button and enter a number say 15, I want the above GET buffer to adjust to Length of 15. That is only to allow user to enter 15 characters.
Thanks.
Joe