Sign in to follow this  
Followers 0
Fabry

Probably bug

2 posts in this topic

Hi, I found an error while I was projecting a form.

If you press A or B shows ChooseColor gui, then you close pressing ok or cancel and it shows again (error), and then press an UpDown it shows again (double error). Why???? <_<

#include <Misc.au3>
#include <GUIConstants.au3>
$coloreA = 0xFF0000
$coloreB = 0x0000FF
#Region ### START Koda GUI section ### Form=d:\documents and settings\fabrizio\documenti\hack\internet e rete\gioco online\server.kxf

$Form1_1 = GUICreate("Impostazioni server", 633, 271, 195, 125)
$Combo1 = GUICtrlCreateCombo("DeathMatch (DM)", 120, 80, 153, 25, $CBS_DROPDOWNLIST)
GUICtrlSetData(-1, "DeathMatch a Squadre (TDM)|Cattura la Bandiera (CTF)|Cerca e Distruggi (S&D)|Quartier Generale (HD)")
$Label1 = GUICtrlCreateLabel("Tipo di gioco :", 24, 82, 71, 17)
$Input1 = GUICtrlCreateInput("50", 120, 128, 56, 21, BitOR($ES_AUTOHSCROLL, $ES_NUMBER))
$Updown1 = GUICtrlCreateUpdown($Input1)
$Label2 = GUICtrlCreateLabel("N° Max Giocatori :", 24, 128, 90, 17)
$Label3 = GUICtrlCreateLabel("Nome server :", 24, 40, 70, 17)
$Input2 = GUICtrlCreateInput("Tanks server", 120, 40, 153, 21)
$Button1 = GUICtrlCreateButton("Carica Mappa", 120, 168, 145, 33, 0)
$Input3 = GUICtrlCreateInput("", 288, 176, 313, 21)
$Button2 = GUICtrlCreateButton("Avvia !!!", 120, 224, 145, 41, 0)
$checbox1 = GUICtrlCreateCheckbox('Permetti votazione', 200, 128)
GUICtrlSetState(-1, $GUI_CHECKED)
GUICtrlCreateLabel('Tempo min. :', 325, 133)
$Input4 = GUICtrlCreateInput('5', 390, 128, 50, 21, BitOR($ES_AUTOHSCROLL, $ES_NUMBER))
$Updown2 = GUICtrlCreateUpdown($Input4)
$Button3 = GUICtrlCreateButton('A', 300, 50, 55, 55)
GUICtrlSetFont(-1, 32)
GUICtrlSetBkColor(-1, $coloreA)
$Button4 = GUICtrlCreateButton('B', 390, 50, 55, 55)
GUICtrlSetBkColor($Button4, $coloreB)
GUICtrlSetFont($Button4, 32)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###

While 1
    $nMsg = GUIGetMsg()
    Switch $nMsg
        Case $GUI_EVENT_CLOSE
            Exit
        Case $Button1
            $filemappa = FileOpenDialog('Scegli Mappa', @ScriptDir, 'Mappe (*.wld)', 3)
            GUICtrlSetData($Input3, $filemappa)
        Case $Button4
            $coloreB = _ChooseColor(2, $coloreB, 2)
            GUICtrlSetBkColor($Button4, $coloreB)
            $nMsg = GUIGetMsg()
        Case $Button3
            $coloreA = _ChooseColor(2, $coloreA, 2)
            GUICtrlSetBkColor($Button3, $coloreA)
            $nMsg = GUIGetMsg()
        Case $Button2
            If $Input3 = '' Or Not FileExists(GUICtrlRead($Input3)) Then
                MsgBox(16, 'Errore', 'Mappa inesistente, inserisci una mappa con carica mappa')
                ContinueCase
            EndIf
            If GUICtrlRead($Input1) <= 0 Then
                MsgBox(16, 'Errore', 'Numero giocatori non consentito')
                ContinueCase
            EndIf
            If GUICtrlRead($Input4) <= 0 Then
                MsgBox(16, 'Errore', 'Tempo in minuti non consentito')
                ContinueCase
            EndIf
            Switch GUICtrlRead($Combo1)
                Case "DeathMatch (DM)" 
                    $tipo = 'DM' 
                Case "DeathMatch a Squadre (TDM)" 
                    $tipo = 'TDM' 
                Case "Cattura la Bandiera (CTF)" 
                    $tipo = 'CTF' 
                Case "Cerca e Distruggi (S&D)" 
                    $tipo = 'S&D' 
                Case "Quartier Generale (HD)" 
                    $tipo = 'HD' 
            EndSwitch
            $nome = GUICtrlRead($Input2)
            $maxUsers = GUICtrlRead($Input1)
            ExitLoop
        Case Else
            Sleep(10)
    EndSwitch
WEnd

A lan chat (Multilanguage)LanMuleFile transferTank gameTank 2 an online game[center]L'esperienza è il nome che tutti danno ai propri errori.Experience is the name everyone gives to their mistakes.Oscar Wilde[/center]

Share this post


Link to post
Share on other sites



Fixed in latest Beta

.. Get it and you will have no more problems with colored buttons

8)


NEWHeader1.png

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