XProfan

Source wurde am 15.07.2007 aus der MMJ-Quellcodesammlung (Dietmar Horn) in die Babyklappe auf XProfan.Com abgelegt:
Listbox mit Doppelklick-Auswahl
Doppel - und Rechtsclicklistbox Autor Dieter Zornow
Def GetSysColor(1) !USER32,GetSysColor
SETTRUECOLOR 1
DECLARE ENDE%,LISTBOX&,BUTTON&,text$
WINDOWSTYLE 63
WINDOWTITLE Listbox with doubleclick and rightclick
WINDOW SUB(DIV(%MAXX,2),DIV(640,2)),SUB(DIV(%MAXY,2),DIV(500,2))-640,500
Listbox mit Doppelclick, Autor Dieter Zornow
CLS GETSYSCOLOR(15)
USEFONT MS Sans Serif,13,0,0,0,0
SETDIALOGFONT 1
LISTBOX& = CREATELISTBOX(%HWND,LISTBOX,0013,0020,0402,0362)
BUTTON& = CREATEBUTTON(%HWND,Ende,410,410,70,25)
addstring(listbox&,Dieter)
addstring(listbox&,Zornow)
addstring(listbox&,Century Park Condominium)
addstring(listbox&,Viphavadi Rangsit Road, Soi 22)
addstring(listbox&,10900 Bangkok /Chatuchak)
addstring(listbox&,Thailand)

WHILENOT ENDE%

    getmessage anstatt waitinput

    If @EQU(%KEY,2)

        LET ENDE%= 1

    ELSEIF @EQU(%KEY,4)

    ELSEIF GETFOCUS(LISTBOX&) LISTBOXABFRAGE

        if equ(%lastmessage,515)

            let text$=getstring$(listbox&,getcursel(listbox&))

        endif

        Locate 0,0
        print Doppelklick: ,text$;

    ELSEIF GETFOCUS(BUTTON&)

        LET ENDE%= 1

    ENDIF

WEND

/../funcion-referencias/XProfan/end/'>end

' Haga doble clic en en Grid funktioniert !
' ACHTUNG: getmessage anstatt waitinput uso
' Und todos clicked() en dieser Bucle en getfocus() umwandeln
declarar hgrid&,s$,ende%,b&,m&
Conjunto("TrueColor", 0)
cls RGB(29, 29,29)
' Grid definieren
s$="a;0;90;b;0;90"
hGrid&=Crear("Gridbox", %hwnd, s$,0, 40, 25, 190, 150)
b&=Crear("Button", %hwnd,"Ende",40, 250, 70,25)
m&=Crear("Text", %hwnd,"",40, 300, 400,25)
'Grid füllen
addstring(hGrid&,"Bla1|xxx")
addstring(hGrid&,"Bla2|xxx")
addstring(hGrid&,"Bla3|xxx")

Sinestar encargado ende%

    getmessage' getmessage anstatt waitinput

    if %key=2' Schließen

        ende%=1

    elseif getfocus(b&)' Button Ende

        ende%=1

    elseif getfocus(hGrid&)' überall getfocus()anstatt clicked()

        if %lastmessage =515' Haga doble clic en

            if getcursel(hGrid&)>=0

                settext m&, "Doppelklick: "+getstring$(hGrid&,getcursel(hGrid&))

            más

                settext m&, "Außerhalb el gültigen Zeilen."

            EndIf

        endif

    endif

endwhile