Welcome Serena Central users! CLICK HERE
The migration of the Serena Central community is currently underway. Be sure to read THIS MESSAGE to get your new login set up to access your account.
kthomp24 Absent Member.
Absent Member.
526 views

Page Up/Down & Line Up/Down Issues in 9.2

We have the below code in screens which has been functioning correctly until we converted over to 9.2:

       MOVE-SCREEN.
           ACCEPT wHandle FROM WINDOW HANDLE.
           INQUIRE WINDOW wHandle SYSTEM HANDLE hWnd.
           MOVE GW_CHILD TO uCmd.
           CALL "@[DISPLAY]:GetWindow" USING BY VALUE hWnd
              BY VALUE uCmd
              GIVING bodyWnd.

           IF KEY-STATUS = 67
              MOVE WM_VSCROLL TO wMsg
              MOVE SB_PAGEUP TO wParam
              MOVE LOW-VALUES TO lParam
              CALL "@[DISPLAY]:SendMessageA"
                 USING BY VALUE bodyWnd
                       BY VALUE wMsg
                       BY VALUE wParam
                       BY VALUE lParam
                 GIVING SendMessageReturn.
           IF KEY-STATUS = 68
              MOVE WM_VSCROLL TO wMsg
              MOVE SB_PAGEDOWN TO wParam
              MOVE LOW-VALUES TO lParam
              CALL "@[DISPLAY]:SendMessageA"
                 USING BY VALUE bodyWnd
                       BY VALUE wMsg
                       BY VALUE wParam
                       BY VALUE lParam
                 GIVING SendMessageReturn.
           IF KEY-STATUS = 273
              MOVE WM_VSCROLL TO wMsg
              MOVE SB_LINEUP TO wParam
              MOVE LOW-VALUES TO lParam
              CALL "@[DISPLAY]:SendMessageA"
                 USING BY VALUE bodyWnd
                       BY VALUE wMsg
                       BY VALUE wParam
                       BY VALUE lParam
                 GIVING SendMessageReturn.
           IF KEY-STATUS = 274
              MOVE WM_VSCROLL TO wMsg
              MOVE SB_LINEDOWN TO wParam
              MOVE LOW-VALUES TO lParam
              CALL "@[DISPLAY]:SendMessageA"
                 USING BY VALUE bodyWnd
                       BY VALUE wMsg
                       BY VALUE wParam
                       BY VALUE lParam
                 GIVING SendMessageReturn.

The logic performed a page up or page down or line up or line down for users on large screens.  As you can see in the code we are using this via thin client.


Thanks for any help.

0 Likes
The opinions expressed above are the personal opinions of the authors, not of Micro Focus. By using this site, you accept the Terms of Use and Rules of Participation. Certain versions of content ("Material") accessible here may contain branding from Hewlett-Packard Company (now HP Inc.) and Hewlett Packard Enterprise Company. As of September 1, 2017, the Material is now offered by Micro Focus, a separately owned and operated company. Any reference to the HP and Hewlett Packard Enterprise/HPE marks is historical in nature, and the HP and Hewlett Packard Enterprise/HPE marks are the property of their respective owners.