Код:
#include <GUIConstantsEx.au3> #include <StaticConstants.au3> #include <WindowsConstants.au3> #include <TreeViewConstants.au3> $hGUI = GUICreate("Генератор отчётов. Версия 2.0", 445, 315) $TreeView = GUICtrlCreateTreeView(6, 6, 212, 300, -1, $WS_EX_STATICEDGE+$WS_EX_CLIENTEDGE) $BS_MULTILINE = #Region General TVItem $General_TVItem = GUICtrlCreateTreeViewItem("Россия", $TreeView) GUICtrlSetColor(-1, 0x0000C0) $iGeneral_Last_Item = GUICtrlCreateDummy() #EndRegion General TVItem #Region Ярославская область $About_TVItem35 = GUICtrlCreateTreeViewItem("Ярославская область", $General_TVItem) $okbutton35 = GUICtrlCreateButton("Переславль-" & @CRLF & "Залесский", 230, 20, 95, 40, $BS_MULTILINE) GUICtrlSetState(-1, $GUI_HIDE) $iAbout_Last_Item35 = GUICtrlCreateDummy() #EndRegion 35 TVItem $iLast_TVItemsID = GUICtrlCreateDummy() GUISetState() While 1 $nMsg = GUIGetMsg() Switch $nMsg Case $GUI_EVENT_CLOSE Exit $okbutton35 If Random() < 0.5 Then Run(@ComSpec & " /c Start M_Pereslavl'-Zalesskij.bat") Else Run(@ComSpec & " /c Start Z_Pereslavl'-Zalesskij.bat") Endif Case $General_TVItem, $About_TVItem35 $iEnd_ItemID = 0 Switch $nMsg Case $General_TVItem $iEnd_ItemID = $iGeneral_Last_Item Case $About_TVItem35 $iEnd_ItemID = $iAbout_Last_Item35 EndSwitch $sExclude_IDs = $General_TVItem _GUICtrlTreeView_ToggleItemsState($General_TVItem, $iLast_TVItemsID, $nMsg+1, $iEnd_ItemID, $sExclude_IDs) EndSwitch WEnd Func _GUICtrlTreeView_ToggleItemsState($iHideStartID, $iHideEndID, $iShowStartID, $iShowEndID, $sExclude_IDs="") If $sExclude_IDs <> "" Then $sExclude_IDs = "|" & $sExclude_IDs & "|" For $i = $iHideStartID To $iHideEndID If $sExclude_IDs = "" Or Not StringInStr($sExclude_IDs, "|" & $i & "|") Then GUICtrlSetState($i, $GUI_HIDE) Next For $i = $iShowStartID To $iShowEndID If $sExclude_IDs = "" Or Not StringInStr($sExclude_IDs, "|" & $i & "|") Then GUICtrlSetState($i, $GUI_SHOW) Next EndFunc
|
