CPP_RAD_Ejercicio15

/* ej15_ScrollBars
Ejemplo para el manejo de ScrollBars en una ventana */
#include <radc++.h>

Form      form1("ScrollBar 1 - RAD C++ Ejemplo");
ScrollBar scr(AUTO_ID,20, 20,20,200,form1,RCP_VERTICAL);

FormProcedure proc(FormProcArgs) {
    ON_SCROLL_CHANGE(scr) {
        LONG pos = scr.position; //get scrollbar position
        form1.caption = str(pos);
    }

    ON_CLOSE()
        Application.close();
    return 0;
}

rad_main()
        form1.procedure = proc;
        //to set custom scrollbar range
        //scr.setRange(1,100); [min, max]
rad_end()