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

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

Аватара для Maza Faka

Ветеран


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

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


Как сделать, что бы при выборе любого элемента "WS", pattern- элемент "Выбрать всё" окрашивался в серый цвет?
Код: Выделить весь код
#include <GUIConstants.au3>

Global $one, $two, $three, $four, $five, $six, $seven, $eight, $nine, $ten

GUICreate("Test", 460, 300)
$tree = GUICtrlCreateTreeView(250, 70, 130, 200, BitOR($TVS_HASBUTTONS, $TVS_LINESATROOT, $TVS_CHECKBOXES, $TVS_HASLINES))
$all = GUICtrlCreateTreeViewItem("Выбрать все", $tree)

Global $TreeArray[11] = [10, $one, $two, $three, $four, $five, $six, $seven, $eight, $nine, $ten]
For $i = 1 To $TreeArray[0]
    $TreeArray[$i] = GUICtrlCreateTreeViewItem("WS " & $i, $all)
Next

GUISetState()

While 1
    $msg = GUIGetMsg()

        Select
    Case $msg = $GUI_EVENT_CLOSE
        ExitLoop

            Case $msg = $all
        If AllTreeCheck($all) Then
            For $a = 1 To $TreeArray[0]
                GUICtrlSetState($TreeArray[$a], $GUI_CHECKED)
            Next
        Else
            For $a = 1 To $TreeArray[0]
                GUICtrlSetState($TreeArray[$a], $GUI_UNCHECKED)
            Next
        EndIf

            EndSelect
WEnd

Func AllTreeCheck($all)
    Return BitAND(GUICtrlRead($all), $GUI_CHECKED)
EndFunc

Отправлено: 17:06, 01-10-2007 | #533