Sign in to follow this  
Followers 0
BlueScreen

Cannot write in an Input

3 posts in this topic

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? :D

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

Share this post


Link to post
Share on other sites



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. :D

Share this post


Link to post
Share on other sites

#3 ·  Posted (edited)

10x, jpm, :D

Edited by BlueScreen

Share this post


Link to post
Share on other sites

Create an account or sign in to comment

You need to be a member in order to leave a comment

Create an account

Sign up for a new account in our community. It's easy!


Register a new account

Sign in

Already have an account? Sign in here.


Sign In Now
Sign in to follow this  
Followers 0