XProfan

!
 $P+
SetErrorLevel 0
DEF GETSYSCOLOR(1) !"USER32","GetSysColor"
DECLARE UBox%,SP&,Zeile%,Zeile$

PROC SP_ONCLICK Hier sollte der ausgewählte String geschrieben werden

    GETMESSAGE

    If (UBox%,$14E,0,0)

        Print "Auswahlbox1:"

    Endif

    If (UBox%,$14E,0,1)

        Print "Auswahlbox2:"

    Endif

ENDPROC

WINDOWSTYLE 63
WINDOWTITLE "Neues Fenster"
WINDOW 22,20-640,500
SETTRUECOLOR 1
DECLARE ENDE%
CLS GETSYSCOLOR(15)
USEFONT "MS Sans Serif",13,0,0,0,0
SETDIALOGFONT 1
UBox%=Control("COMBOBOX","",$54010243,180,288,180,120,%HWND,0,%hinstance)
clearlist
Addstring "(keines)"
Addstring "Kleines Speicherabbild (64kb)"
Addstring "Kernelspeicherabbild"
Addstring "Vollständiges Speicherabbild"
@movelisttoChoice(UBox%)

If ReadIni$("Hkey_DW_2", "SYSTEMCurrentControlSetControlCrashControl","CrashDumpEnabled")="0"

    @sendmessage(UBox%,$14E,0,0)            1. Zeile anzeigen

Endif

If ReadIni$("Hkey_DW_2", "SYSTEMCurrentControlSetControlCrashControl","CrashDumpEnabled")="3"

    @sendmessage(UBox%,$14E,1,0)            2. Zeile anzeigen

Endif

If ReadIni$("Hkey_DW_2", "SYSTEMCurrentControlSetControlCrashControl","CrashDumpEnabled")="2"

    @sendmessage(UBox%,$14E,2,0)            3. Zeile anzeigen

Endif

If ReadIni$("Hkey_DW_2", "SYSTEMCurrentControlSetControlCrashControl","CrashDumpEnabled")="1"

    @sendmessage(UBox%,$14E,3,0)            4. Zeile anzeigen

Endif

SP& = @Create("Button",%HWND,Speichern,150,50,90,22)
SETFOCUS(%HWND)

WHILENOT ENDE%

    WAITINPUT

    If @EQU(%KEY,2)

        LET ENDE%= 1

    ELSEIF @EQU(%KEY,4)

    elseif @getfocus(UBox%)

        UBox_ONCLICK
        Let Zeile% = @GetCursel(UBox%)
        Let Zeile$ = @GetText$(UBox%)
        @GetCurSel(0)
        Print "Auswahlbox1:"
        @GetCurSel(1)
        Print "Auswahlbox2:"

    elseif @getfocus(SP&)

        SP_ONCLICK

    ENDIF

WEND

 $P+
DEF @GetDlgCtrlID(1) !"USER32","GetDlgCtrlID"
DEF @ButtonClicked(1) @GetDlgCtrlID(@&(1))=-%MENUITEM
SetErrorLevel 0
DEF GETSYSCOLOR(1) !"USER32","GetSysColor"
DECLARE UBox%,SP&,Cur_SEL& ,Zeile%,Zeile$

PROC SP_ONCLICK Hier sollte der ausgewählte String geschrieben werden

    LEt Cur_SEL&=@Sendmessage(UBox%,$147,0,0)

    If Cur_SEL&=0

        Print "Auswahlbox1:"

    ElseIf Cur_SEL&=1

        Print "Auswahlbox2:"

    ElseIf Cur_SEL&=2

        Print "Auswahlbox3:"

    ElseIf Cur_SEL&=3

        Print "Auswahlbox4:"

    Endif

ENDPROC

WINDOWSTYLE 63
WINDOWTITLE "Neues Fenster"
WINDOW 22,20-640,500
SETTRUECOLOR 1
DECLARE ENDE%
CLS GETSYSCOLOR(15)
USEFONT "MS Sans Serif",13,0,0,0,0
SETDIALOGFONT 1
UBox%=Control("COMBOBOX","",$54010243,180,288,180,120,%HWND,0,%hinstance)
clearlist
Addstring "(keines)"
Addstring "Kleines Speicherabbild (64kb)"
Addstring "Kernelspeicherabbild"
Addstring "Vollständiges Speicherabbild"
@movelisttoChoice(UBox%)

If ReadIni$("Hkey_DW_2", "SYSTEMCurrentControlSetControlCrashControl","CrashDumpEnabled")="0"

    @sendmessage(UBox%,$14E,0,0)  1. Zeile anzeigen

Endif

If ReadIni$("Hkey_DW_2", "SYSTEMCurrentControlSetControlCrashControl","CrashDumpEnabled")="3"

    @sendmessage(UBox%,$14E,1,0)  2. Zeile anzeigen

Endif

If ReadIni$("Hkey_DW_2", "SYSTEMCurrentControlSetControlCrashControl","CrashDumpEnabled")="2"

    @sendmessage(UBox%,$14E,2,0)  3. Zeile anzeigen

Endif

If ReadIni$("Hkey_DW_2", "SYSTEMCurrentControlSetControlCrashControl","CrashDumpEnabled")="1"

    @sendmessage(UBox%,$14E,3,0)  4. Zeile anzeigen

Endif

SP& = @Create("Button",%HWND,Speichern,150,50,90,22)
SETFOCUS(%HWND)

WHILENOT ENDE%

    WAITINPUT

    If @EQU(%KEY,2)

        LET ENDE%= 1

    ELSEIF @EQU(%KEY,4)

    elseif @getfocus(UBox%)

        UBox_ONCLICK
        Let Zeile% = @GetCursel(UBox%)
        Let Zeile$ = @GetText$(UBox%)
        @GetCurSel(0)
        Print "Auswahlbox1:"
        @GetCurSel(1)
        Print "Auswahlbox2:"

    elseif @ButtonClicked(SP&)

        Setmenuitem 0
        SP_ONCLICK

    ENDIF

WEND