XProfan

Source wurde am 15.07.2007 aus der MMJ-Quellcodesammlung (Dietmar Horn) in die Babyklappe auf XProfan.Com abgelegt:
Button bzw. Control enabled?
 $P+
SetErrorLevel 0
Def IsWindowEnabled(1) !USER32,IsWindowEnabled
********************** HINWEISE ********************************
CODE ERZEUGT MIT ROKOS OBJECT CREATOR 4.5
DATUM 08.11.2006  um 22:46 Uhr
VERWENDETE PROFANVERSION IST 10.0ß-NT S13 XPROFAN
CODE ERSTELLT UNTER UNBEKANNTER WINDOWSVERSION
!!! Dieser Code wird von Roc immer neu erzeugt    !!!
!!! Erst bearbeiten, wenn alle Objekte erzeugt wurden !!!
!!! Verändern Sie ggf. feste Pfade in variable Pfade !!!
DEF GETSYSCOLOR(1) !USER32,GetSysColor
DECLARE BUTTON1&
DECLARE BUTTON2&
DECLARE BUTTON3&
DECLARE EDIT1&
DECLARE EDIT2&
DECLARE EDIT3&
WINDOWSTYLE 63
WINDOWTITLE Enabled?
WINDOW 22,20-640,500
SETTRUECOLOR 1
DECLARE ENDE%
CLS GETSYSCOLOR(15)
USEFONT MS Sans Serif,13,0,0,0,0
SETDIALOGFONT 1
Hier kann ggf. Ihr Menü hin
BUTTON1& = CREATE(BUTTON,%HWND,BUTTON,0023,0033,0070,0030)
BUTTON2& = CREATE(BUTTON,%HWND,BUTTON,0023,0073,0070,0030)
BUTTON3& = CREATE(BUTTON,%HWND,BUTTON,0022,0113,0070,0030)
EDIT1& = CREATE(EDIT,%HWND,EDIT,0112,0033,0120,0020)
EDIT2& = CREATE(EDIT,%HWND,EDIT,0113,0061,0120,0020)
EDIT3& = CREATE(EDIT,%HWND,EDIT,0115,0094,0120,0020)
enablewindow Button2&,0
enablewindow Edit2&,0
print IsWindowEnabled(Button1&)
print IsWindowEnabled(Button2&)
print IsWindowEnabled(Button3&)
Print IsWindowEnabled(Edit1&)
print IsWindowEnabled(Edit2&)
Print IsWindowEnabled(Edit3&)
SETFOCUS(%HWND)

WHILENOT ENDE%

    WAITINPUT

    If @EQU(%KEY,2)

        LET ENDE%= 1

    ELSEIF @EQU(%KEY,4)

    ELSEIF GETFOCUS(BUTTON1&)BUTTON

    ELSEIF GETFOCUS(BUTTON2&)BUTTON

    ELSEIF GETFOCUS(BUTTON3&)BUTTON

    ELSEIF GETFOCUS(EDIT1&)EDIT

    ELSEIF GETFOCUS(EDIT2&)EDIT

    ELSEIF GETFOCUS(EDIT3&)EDIT

    ENDIF