Sign in to follow this  
Followers 0
Ace08

Flickering problem

2 posts in this topic

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



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  
Followers 0