sproxy
Full Member | Редактировать | Профиль | Сообщение | ICQ | Цитировать | Сообщить модератору
vicbox777
...фух, запутался... )) это было нужно?:
Код: #region: - Include
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#Include <ModernMenuRaw.au3>
#endregion
#region: - Option
Opt('GUIOnEventMode', 1)
Opt('MustDeclareVars', 1)
Opt('TrayIconDebug', 1)
Opt('TrayIconHide', 0)
#endregion
#region: - Global
Global $hWinMain, $hFileMenu, $sMenuColor
$sMenuColor='red'
#endregion
#region: GUI
$hWinMain = GUICreate('Test', 400, 400, -1, -1)
GUISetOnEvent($GUI_EVENT_CLOSE, '_Pro_Exit')
$hFileMenu = GUICtrlCreateMenu("&File")
_GUICtrlCreateODMenuItem("&Open..." & @Tab & "Ctrl+O", $hFileMenu)
_GUICtrlODMenuItemSetIcon(-1, "shell32.dll", -4)
_GUICtrlODMenuItemSetSelIcon(-1, "shell32.dll", -5)
GUICtrlCreateButton('Сменить цвет Top menu', 10, 50, 150, 25)
GUICtrlSetOnEvent(-1, '_Change_Color')
#endregion
#region: - После создания всех GUI
GUISetState(@SW_SHOW, $hWinMain)
_Change_Color()
#endregion
#region: - Sleep, Exit
While 1
Sleep(10)
WEnd
Func _Pro_Exit()
Exit
EndFunc
#endregion
Func _Change_Color()
If $sMenuColor == 'red' Then
$sMenuColor = 'green'
_SetMenuBkColor(0xAADDFF)
_SetMenuIconBkColor(0x5566BB)
_SetMenuSelectBkColor(0x70A0C0)
_SetMenuSelectRectColor(0x854240)
_SetMenuSelectTextColor(0x000000)
_SetMenuTextColor(0x000000)
Else
$sMenuColor = 'red'
_SetMenuBkColor(0xAAFFAA)
_SetMenuIconBkColor(0x66BB66)
_SetMenuSelectBkColor(0xBBCC88)
_SetMenuSelectRectColor(0x222277)
_SetMenuSelectTextColor(0x770000)
_SetMenuTextColor(0x000000)
EndIf
EndFunc |
Добавлено:
vicbox777
тьфу....так ты про саму строку....понял....
Добавлено:
тут явно как-то через windows надо, так как в AutoIt:
GUICtrlSetBkColor
Замечания
В настоящее время могут раскрашиваться только такие управляющие элементы, как Button, Label, Checkbox, Group, Radio, Edit, Input, List, Listview, ListviewItem, Treeview, TreeviewItem, Graphic, Progress и Slider.
Добавлено:
ViSiToR
подскажи, пожалуйста, как в этом примере
сделать что бы заработало вот это:
Код:| _FileSelectFolder('Выберите папку куда был установлен AutoIT' & @CRLF & 'В ней должен находиться файл AutoIt3.exe', 0, BitOR($BIF_NEWDIALOGSTYLE, $BIF_RETURNONLYFSDIRS, $BIF_NONEWFOLDERBUTTON), $sCfgAutoItDir) |
правильно, т.к. текст: В ней должен находиться файл AutoIt3.exe - теряется.
...строка, в которой сообщается какая на данные момент выбрана папка, не принципиальна...
Добавлено:
благодарю, разобрался, вот это в коммент:
Код: ;~ ControlSetText($hWnd, "", "Static1", _
;~ $sPrompt_Data & @CRLF & @CRLF & _StringGetShortString($sCurrent_Path, 50)) |
|
