CPP_RAD_Ejercicio27

/* ej27_Subclase ListBox
Ejemplo de subclase para el control ListBox */
#include <radc++.h>

Form form1("Subclass listbox - RAD C++ Example");
ListBox l("",     AUTO_ID,0,0,100,  100,form1);

WNDPROC ActualListBoxProcedure=NULL;

FormProcedure form1Proc(FormProcArgs) {
    ON_CLOSE()  Application.close();

    return 0;
}

//subclass procedure
ControlProcedure CustomListBoxProcedure(HWND hwnd, UINT message, WPARAM wParam, LPARAM lParam) {
    ON_LEFT_CLICK()
            form1.text = "ON_LEFT_CLICK";

    ON_LEFT_CLICK_RELEASE()
            form1.text = "ON_LEFT_CLICK_RELEASE";

    ON_MOUSEMOVE()
            form1.text = "ON_MOUSEMOVE";

    return CallWindowProc(ActualListBoxProcedure, hwnd, message, wParam, lParam);
}

rad_main()

        form1.procedure = form1Proc;
        ActualListBoxProcedure = (WNDPROC)l.setWProcedure(CustomListBoxProcedure);

rad_end()