XProfan

English

Torsten
Rümker

can I yes a arbitrary element deaktivieren or reaktivieren.
but How undergo I whether a element straight active or inaktiv is?

I could me naturally simply a variable create, which very the observes, but it must still too eleganter weg or?

MfG
Torsten

Ich lerne, ob ich will oder nicht!
Betriebssystem:
- Ubuntu 15.x
- Windows (diverse)
XProfan Version: X2

11/08/06 ▲

Vollständiges Quote

Absatzweise Quote Zeilenweise Quote

clear GEHTS plainer! ws_disabled is yes a windowstyle. look to getstyle

And then Gibts there yet gwl_userdata - so can You in Controls one Long hide...

11/08/06 ▲

Vollständiges Quote

Absatzweise Quote Zeilenweise Quote

Compile Mark Separation

!Def IsEnabled(1) !"user32.dll", "IsWindowEnabled"

Ungetested

11/08/06 ▲

Vollständiges Quote

Absatzweise Quote Zeilenweise Quote

Rolf
Koch

Shit Thomas was faster - But of course Thomas It's all right so:
Compile Mark Separation

 $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(Edit2&)
print IsWindowEnabled(Button2&)
Print IsWindowEnabled(Edit1&)
print IsWindowEnabled(Button3&)
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

4 href='./../../references-fonction/XProfan/wend/'>WEND