XProfan

Source wurde al 15.07.2007 de el MMJ-Quellcodesammlung (Dietmar Horn) en el Babyklappe en XProfan.Com abgelegt:
ChoiceBox y GridBox
de XProfan 10
DECLARE __cf1&,__cf2&
Def __cf1(2) !KERNEL32,GetProcAddress
Def __cf2(1) !KERNEL32,GetModuleHandleA
__cf1&=__cf1(__cf2(user32.dll),FindWindowExA)
__cf2&=__cf1(__cf2(user32.dll),GetAsyncKeyState)
CLS
var STATIC&=CREATE(choicebox,%HWND,Choicebox,16,16,560,180)
USERMESSAGES 16,$0134

WHILE 1

    WAITINPUT

    SELECT %UMESSAGE

        CASEOF 16

        BREAK

        CASEOF $0134

        PROCEEDCHOICEBOX
        OTHERWISE

    ENDSELECT

ENDWHILE

end

proc PROCEEDCHOICEBOX

    var TITEL$=Links;0;80;Mitte;2;100;Rechts;1;80
    var PARENT&=call(__cf1&,65556,0,ComboLBox,0)
    SHOWWINDOW(PARENT&,0)
    var HGRID&=CREATE(GridBox,%HWND, TITEL$, 3,16,40,WIDTH(PARENT&),HEIGHT(PARENT&))
    SENDKEY(PARENT&,27)
    ADDSTRING(HGRID&,AB|DEF|0123)
    ADDSTRING(HGRID&,GHI|J23KL|012345)

    WHILE call(__cf2&,1)<>0

    ENDWHILE

    DULCOIF
    WAITINPUT

    IF GETFOCUS(STATIC&)

        SENDKEY(PARENT&,27)

    ENDIF

    var S$=

    IF GETCURSEL(HGRID&)>-1

        S$=GETSTRING$(HGRID&,GETCURSEL(HGRID&))

    ENDIF

    DESTROYWINDOW(HGRID&)

    IFNOT S$=

        LOCATE 10,1
        PRINT Ausgewählt: ,S$

    ENDIF

ENDPROC

proc DULCOIF

    SETTIMER 1
    WAITINPUT
    KILLTIMER

ENDPROC