home *** CD-ROM | disk | FTP | other *** search
/ Sams Cobol 24 Hours / Sams_Cobol_24_Hours.iso / Cobol32 / PowerCBL / powercbl.Z / scroll.prc < prev    next >
Text File  |  1997-04-20  |  1KB  |  42 lines
  1. @POWER POWSHEET SHEET1 OPENED
  2.  ENVIRONMENT DIVISION.
  3.  DATA        DIVISION.
  4.  WORKING-STORAGE SECTION.
  5.  01  VAL   PIC ZZZ9.
  6.  PROCEDURE   DIVISION.
  7. * display current scroll position.
  8.      MOVE POW-SCRPOSITION OF HSCROLL1 TO VAL.
  9.      MOVE VAL TO POW-TEXT OF LABEL1.
  10.      MOVE POW-SCRPOSITION OF VSCROLL1 TO VAL.
  11.      MOVE VAL TO POW-TEXT OF LABEL2.
  12. @POWER POWHSCRL HSCROLL1 CHANGE
  13.  ENVIRONMENT DIVISION.
  14.  DATA        DIVISION.
  15.  WORKING-STORAGE SECTION.
  16.  01  H-VAL   PIC ZZZ9.
  17.  PROCEDURE   DIVISION.
  18. * The horizontal text field will be updated dynamically 
  19. * as the scroll bar changes position.
  20. * Set current position.
  21.      MOVE POW-SCRPOSITION OF HSCROLL1 TO H-VAL.
  22. * Display current position.
  23.      MOVE H-VAL TO POW-TEXT OF LABEL1.
  24. @POWER POWVSCRL VSCROLL1 ENDSCROLL
  25.  ENVIRONMENT DIVISION.
  26.  DATA        DIVISION.
  27.  WORKING-STORAGE SECTION.
  28.  01  V-VAL   PIC ZZZ9.
  29.  PROCEDURE   DIVISION.
  30. * The vertical text field will be updated when the
  31. * scroll bar is stopped in its new position.
  32. * Set current position.
  33.      MOVE POW-SCRPOSITION OF VSCROLL1 TO V-VAL.
  34. * Display current position.
  35.      MOVE V-VAL TO POW-TEXT OF LABEL2.
  36. @POWER POWPSBTN PUSH10 CLICK
  37.  ENVIRONMENT DIVISION.
  38.  DATA        DIVISION.
  39.  PROCEDURE   DIVISION.
  40. * Close the sample application.
  41.         CALL CLOSESHEET OF SHEET1.
  42.