Имя пользователя:
Пароль:
 

Показать сообщение отдельно

Аватара для madmasles

Ветеран


Сообщения: 812
Благодарности: 353

Профиль | Отправить PM | Цитировать


support23,
Попробуйте так.
Код: Выделить весь код
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>

Global $aInp[2] = ['First', 'Second'], $iChB, $aIni[3] = [@ScriptDir & '\test.ini', 'Checkbox', 'State'], _
        $aState[2][2] = [[BitOR($GUI_SS_DEFAULT_INPUT, $ES_READONLY), $GUI_UNCHECKED],[$GUI_SS_DEFAULT_INPUT, $GUI_CHECKED]]

$iChB = Abs(Int(IniRead($aIni[0], $aIni[1], $aIni[2], '0')))
If $iChB > 1 Then
    $iChB = 1
    IniWrite($aIni[0], $aIni[1], $aIni[2], $iChB)
EndIf

GUICreate('Test', 266, 194)
$nCheckbox = GUICtrlCreateCheckbox('Checkbox', 40, 32, 97, 17)
GUICtrlSetState(-1, $aState[$iChB][1])
For $i = 0 To 1
    $aInp[$i] = GUICtrlCreateInput($aInp[$i], 40, 56 + $i * 22, 121, 21, $aState[$iChB][0])
Next
;$nButton = GUICtrlCreateButton('Save', 152, 128, 75, 25)
GUISetState()

While 1
    Switch GUIGetMsg()
        Case $GUI_EVENT_CLOSE
            Exit
        Case $nCheckbox
            $iChB = BitAND(GUICtrlRead($nCheckbox), $GUI_CHECKED)
            For $i = 0 To 1
                GUICtrlSetStyle($aInp[$i], $aState[$iChB][0])
            Next
            IniWrite($aIni[0], $aIni[1], $aIni[2], $iChB)
            ;Case $nButton
            ;IniWrite(@ScriptDir & '\test.ini', 'Checkbox', 'State', $iChB)
    EndSwitch
WEnd

Последний раз редактировалось madmasles, 31-10-2012 в 22:16.

Это сообщение посчитали полезным следующие участники:

Отправлено: 20:27, 31-10-2012 | #2