home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 18 REXX / 18-REXX.zip / extspsht.zip / EXTSPSHT / Main / 1016.0 < prev    next >
Text File  |  1997-07-15  |  1KB  |  38 lines

  1. /* Event Clicked/selected - Enter edits  1016 */
  2. Arg window self
  3. call setStyle
  4. return
  5.  
  6. setStyle: procedure expose window SPRM. SPRS.
  7. Style = 0
  8. /* Get button state Enter edits1016 Check Box */
  9. if VpIsSelected(window,1016) then Style = Style + SPRS.ENTER_EDITS
  10. /* Get button state Char edits1017 Check Box */
  11. if VpIsSelected(window,1017) then Style = Style + SPRS.CHAR_EDITS
  12. /* Get button state overwrite1019 Check Box */
  13. if VpIsSelected(window,1019) then Style = Style + SPRS.EDITFULLSEL
  14. /* Get button state Fix Len1021 Check Box */
  15. if VpIsSelected(window,1021) then Style = Style + SPRS.EDITFIXLEN
  16.  
  17. /* Get button state allow DEL1007 Check Box */
  18. if VpIsSelected(window,1007) then Style = Style + SPRS.ALLOWDELETE
  19. /* Get button state Go Left1006 Check Box */
  20. if VpIsSelected(window,1006) then Style = Style + SPRS.GO_LEFT
  21. /* Get button state Go Down1005 Check Box */
  22. if VpIsSelected(window,1005) then Style = Style + SPRS.GO_DOWN
  23.  
  24. /* Get item value 1010 Text */
  25. value = VpGetItemValue(window,1010)
  26. if value = "" then
  27.   value = 0
  28. else do
  29.   parse VAR value key ctrl shft alt
  30.   value = SPRS.VIRTUALKEY
  31.   if shft then value = value + SPRS.KEY_SHIFT;
  32.   if ctrl then value = value + SPRS.KEY_CTRL;
  33.   if alt then value = value + SPRS.KEY_ALT;
  34.   value = value + key;
  35. end
  36.  
  37. value=VpItem(window,1000,'SENDMSG', SPRM.SET_EDTSTYLE, Style, value);
  38.