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.
↧