home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
OS/2 Shareware BBS: 18 REXX
/
18-REXX.zip
/
extspsht.zip
/
EXTSPSHT
/
Main
/
1016.0
< prev
next >
Wrap
Text File
|
1997-07-15
|
1KB
|
38 lines
/* Event Clicked/selected - Enter edits 1016 */
Arg window self
call setStyle
return
setStyle: procedure expose window SPRM. SPRS.
Style = 0
/* Get button state Enter edits1016 Check Box */
if VpIsSelected(window,1016) then Style = Style + SPRS.ENTER_EDITS
/* Get button state Char edits1017 Check Box */
if VpIsSelected(window,1017) then Style = Style + SPRS.CHAR_EDITS
/* Get button state overwrite1019 Check Box */
if VpIsSelected(window,1019) then Style = Style + SPRS.EDITFULLSEL
/* Get button state Fix Len1021 Check Box */
if VpIsSelected(window,1021) then Style = Style + SPRS.EDITFIXLEN
/* Get button state allow DEL1007 Check Box */
if VpIsSelected(window,1007) then Style = Style + SPRS.ALLOWDELETE
/* Get button state Go Left1006 Check Box */
if VpIsSelected(window,1006) then Style = Style + SPRS.GO_LEFT
/* Get button state Go Down1005 Check Box */
if VpIsSelected(window,1005) then Style = Style + SPRS.GO_DOWN
/* Get item value 1010 Text */
value = VpGetItemValue(window,1010)
if value = "" then
value = 0
else do
parse VAR value key ctrl shft alt
value = SPRS.VIRTUALKEY
if shft then value = value + SPRS.KEY_SHIFT;
if ctrl then value = value + SPRS.KEY_CTRL;
if alt then value = value + SPRS.KEY_ALT;
value = value + key;
end
value=VpItem(window,1000,'SENDMSG', SPRM.SET_EDTSTYLE, Style, value);