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.