XProfan

Set(FastMode,1)
 $H windows.ph
 $H messages.ph
Declare  oldcallback&,static&,brush&,raus&,hGrid&,titel$
cls
oldcallback&=~SetWindowLong(%hwnd,~GWL_WNDPROC,ProcAddr(newcallback,4))
static&=Create(choicebox,%hwnd,Choicebox,16,16,560,180)

WhileNot raus&

    WaitInput

EndWhile

End

PROC setcolor

    Parameters col&,bk&,wParam&
    declare Brush&

    IF Brush&

        ~DeleteObject(Brush&)

    endif

    Brush& = ~CreateSolidBrush(bk&)
    ~SetBkMode(wParam&, ~TRANSPARENT)
    ~SetBKColor(wParam&,RGB(195,116,95))
    ~SetTextColor(wParam&,col&)
    RETURN Brush&

endproc

Proc newcallback

    Parameters wnd&,msg&,wparam&,lparam&

    IF msg&=~WM_CTLCOLOREDIT

        RETURN SetColor(rgb(255,0,0),rgb(255,255,0),wParam&)

    Endif

    IF msg&=~WM_CTLCOLORLISTBOX

        Titel$ = Links;0;80;Mitte;2;100;Rechts;1;80
        hGrid&=Create(GridBox,lparam&, Titel$, 3,1,1,549,140)
        AddString(hGrid&, AB|DEF|0123)
        AddString(hGrid&, GHI|J23KL|012345)

        IF brush&

            ~DeleteObject(brush&)

        EndIf

        brush&=~CreateSolidBrush(Rgb(0,0,255))
        RETURN brush&

    Endif

    If msg&=~WM_CLOSE

        ~DeleteObject(brush&)
        raus&=1

    Endif

    RETURN ~CallWindowProc(oldcallback&,wnd&,msg&,wparam&,lparam&)

EndProc

Declare cb&,lv&
Cls
cb&=Create(ChoiceBox,%hwnd,0,10,10,500,20)
lv&=Create(GridBox,%hwnd,Spalte 1;0;100;Spalte 2;0;100;Spalte 3;0;100,0,10,30,500,0)

While 1

    WaitInput

    If GetFocus(cb&)

        WhileLoop 100

            SetWindowPos lv&=10,30 - 500,&Loop * 3;0

        Wend

        WaitInput

        WhileLoop 100,0,-1

            SetWindowPos lv&=10,30 - 500,&Loop * 3;0

        Wend

        SetWindowPos lv&,10,30 - 500,0;0

    EndIf

Wend