Clarion LIST horizontal scroll events

brahn · June 9, 2020, 3:24am

Thanks @Rick_UpperPark for the example. Using some other examples found on the newsgroups I have made a working demo.

Full source in the ClarionClasses github project:

Specifically, this!

fushnisoft/ClarionClasses/blob/master/ListHScroll/ListHScroll.clw


  PROGRAM

  MAP
    MODULE('C%V%RUN%X%')
      DebugerNameMessage(*CSTRING, UNSIGNED EventNum ),NAME('WslDebug$NameMessage'),RAW   !Note: use   EVENT() + EVENT:FIRST else will get WM_*
    END
    MODULE('Win32Api')
CallWindowProc    PROCEDURE(LONG wndprc, |
                  ULONG hWnd, |
                  ULONG uMsg, |
                  ULONG wParam, |
                  LONG  lParam ),LONG,PASCAL,NAME('CallWindowProcA')
    END
SubClassFunc    Procedure(UNSIGNED hWnd,   |
                LONG uMsg,        |
                LONG wParam,      |
                LONG lParam       |
                ),LONG,PASCAL
  END

This file has been truncated. show original

Rick_UpperPark · June 9, 2020, 2:36pm

Hi Brahn,

Thanks. I use this technique two sync to list box together. So when one list box is scrolled horizontally, I can capture the event and change the HScrollPos of the other list box to match.