Cannot write in an Input

[BlueScreen]

Check this out.

Check "check1" and try to write something in "Input3".

Yoy will not succeed to use the mouse in order to write something.

Any idea?

expandcollapse popup

Opt("GUINotifyMode", 1)
Global $GUI_CHECKED =1
Global $GUI_DISABLE = 128
Global $GUI_ENABLE = 64
Global $Run
Global $check1
Global $check2
Global $input1
Global $input2
Global $Run2


DisplayGui ()
While 1
    $msg = GuiMsg(0)
    
    Select
  Case $msg=-3;Closed the window
     Exit
  Case $msg=$check1
     If GuiRead ($msg)=$GUI_CHECKED Then
    GUISetControlEx ($input1, $GUI_ENABLE)
    GUISetControlEx ($input2, $GUI_ENABLE)
    GUISetControlEx ($check2, $GUI_ENABLE)
     Else
    GUISetControlEx ($input1, $GUI_DISABLE)
    GUISetControlEx ($input2, $GUI_DISABLE)
    GUISetControlEx ($check2, $GUI_DISABLE)
     EndIf
  Case $msg=$check2
     If GuiRead ($msg)=$GUI_CHECKED Then
    $check2=1
     EndIf
  Case $msg=$Run
     ExitLoop
  Case $msg=$Run2
     DisplayGui ()
    EndSelect
    
WEnd

Func DisplayGui ()
    GuiCreate ("Inputs",450,250)

    GuiSetControl ("label", "some input 1", 20,30)
    $CommunityName=GuiSetControl ("combo", "", 100,25,150,150)
    GUISetControlData($CommunityName,"1|2|3")
    GuiSetControl ("label", "some input 2", 20,70,150)
    $LoginAs=GuiSetControl ("input", "", 100,65,150,20)
    $check1=GuiSetControl ("checkbox", "check1", 275,65)
    GuiSetControl ("label", "input1:", 20,120,150)
    $check2=GuiSetControl ("checkbox", "check2", 275,115)
    GuiSetControl ("label", "input3", 20,150)
    
    $Run=GUISetControl ("button", "Run!", 320,160,100,-1)
    $Run2=GUISetControl ("button", "Run2", 320,190,100,-1)
    $input1=GuiSetControl ("input", "", 100,115,150,20)
    $input2=GuiSetControl ("input", "", 100,145,50,20)
    GUISetControlEx ($input1, $GUI_DISABLE)
    GUISetControlEx ($input2, $GUI_DISABLE)
    GUISetControlEx ($check2, $GUI_DISABLE)
    GuiSetControl ("label", "Session ", 20,190,150)
  
    GuiShow ()
EndFunc

[jpm]

Your label overlap the edit controls

GuiSetControl ("label", "some input 2", 20,70,150)

GuiSetControl ("label", "input1:", 20,120,150)

if you comment this 2 controls you will see it is OK without the label displayed.

[BlueScreen]

10x, jpm,

Edited July 1, 2004 by BlueScreen