Jump to content
Sign in to follow this  
Ace08

Flickering problem

Recommended Posts

Ace08

uhm guy can someone tell me whats wrong with my script the delimiter label and the inputbox keeps flickering

#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>

NewFormFunc()
Func NewFormFunc()
    $NewForm = GUICreate("New Tie-Up", 800 ,600,-1,-1);New Form GUI
    GUICtrlCreateLabel("Conduit Name", 10, 15)
    GUICtrlCreateLabel("Locator Code", 235, 15)
    GUICtrlCreateLabel("Short Code", 345, 15)
    $ConName = GUICtrlCreateInput("", 80, 8, 150, 20)
    $LCode = GUICtrlCreateInput("", 302, 8, 35, 20)
    $SCode = GUICtrlCreateInput("", 400, 8, 30, 20)
    GUICtrlCreateGroup("Layout", 10, 40, 90, 80)
    $LLine = GUICtrlCreateRadio("Line", 15, 60, 50, 20)
    $LDelim = GUICtrlCreateRadio("Multi-Line", 15, 80, 62, 20)
    GUICtrlCreateGroup("", -99, -99, 1, 1)  ;close group
    $Tracking = GUICtrlCreateCheckbox("Own Tracking Number?", 110, 40, 150, 20)
    GUICtrlSetState($Tracking, $GUI_CHECKED)
    $Back = GUICtrlCreateButton("Back", 710, 565, 80)
    GUICtrlCreateGroup("", 100, 50, 80, 70)
    $DDel = GUICtrlCreateRadio("Position", 110, 70, 60, 20)
    $DPos = GUICtrlCreateRadio("Delimiter", 110, 90, 60, 20)
    GUICtrlCreateGroup("", -99, -99, 1, 1)  ;close group
    $a = GUICtrlCreateLabel("Delimiter", 190, 60,Default,Default,$WS_DISABLED)
    $Delim = GUICtrlCreateInput("", 200, 80, 15, 20,$WS_DISABLED)
    GUISetState() 
    While 1
        Switch GUIGetMsg()
            Case $GUI_EVENT_CLOSE
                Exit
            Case $Back
                GUIDelete($NewForm)
                MainFormFunc()
            Case $DDel And BitAND(GUICtrlRead($DDel), $GUI_CHECKED) = $GUI_CHECKED
                If GUICtrlGetState($a) = 144 Then
                    GUICtrlSetState($a, $GUI_ENABLE)
                    GUICtrlSetState($Delim, $GUI_ENABLE)
                Else
                EndIf
            Case $DPos And BitAND(GUICtrlRead($DPos), $GUI_CHECKED) = $GUI_CHECKED
                If GUICtrlGetState($a) = 80 Then
                    GUICtrlSetState($a, $GUI_DISABLE)
                    GUICtrlSetState($Delim, $GUI_DISABLE)
                Else
                EndIf
        EndSwitch
    WEnd    
EndFunc

Work smarter not harder.My First Posted Script: DataBase

Share this post


Link to post
Share on other sites
trancexx

While 1
    Switch GUIGetMsg()
        Case $GUI_EVENT_CLOSE
            Exit
        Case $Back
            GUIDelete($NewForm)
            MainFormFunc()
        Case $DDel ;And BitAND(GUICtrlRead($DDel), $GUI_CHECKED) = $GUI_CHECKED
;~                 If GUICtrlGetState($a) = 144 Then
            GUICtrlSetState($a, $GUI_ENABLE)
            GUICtrlSetState($Delim, $GUI_ENABLE)
;~                 Else
;~                 EndIf
        Case $DPos ;And BitAND(GUICtrlRead($DPos), $GUI_CHECKED) = $GUI_CHECKED
;~                 If GUICtrlGetState($a) = 80 Then
            GUICtrlSetState($a, $GUI_DISABLE)
            GUICtrlSetState($Delim, $GUI_DISABLE)
;~                 Else
;~                 EndIf
    EndSwitch
WEnd


♡♡♡

.

eMyvnE

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  

×