musicstashall
Знающий
- Сообщения
- 322
- Репутация
- 7
Всем доброго.
Кто нибудь разъясните ситуацию, почему не могу применить фоновый цвет для всей ленты в Rebar? Функции имеются, но не работают.
Кто нибудь разъясните ситуацию, почему не могу применить фоновый цвет для всей ленты в Rebar? Функции имеются, но не работают.
Код:
#include <GuiReBar.au3>
#include <GuiToolbar.au3>
#include <GuiComboBox.au3>
#include <GuiDateTimePicker.au3>
#include <GuiEdit.au3>
#include <WindowsConstants.au3>
#include <Constants.au3>
#include <GUIConstantsEx.au3>
#include <WinAPIGdi.au3>
Opt("GUIOnEventMode", 1)
$Debug_RB = False
Global $hReBar
_Main()
Func _Main()
Local $hgui, $hToolbar, $hCombo, $hDTP, $hInput
Local Enum $idNew = 1000, $idOpen, $idSave, $idHelp
$hgui = GUICreate(StringTrimRight(@ScriptName, 4), 610, 400, -1, -1, BitOR($WS_MINIMIZEBOX, $WS_CAPTION, $WS_POPUP, $WS_SYSMENU, $WS_GROUP))
GUISetBkColor(0, $hgui)
GUISetOnEvent($GUI_EVENT_CLOSE, 'Event')
; Создаёт элемент ReBar
$hReBar = _GUICtrlRebar_Create($hgui, BitOR($CCS_TOP, $WS_BORDER, $RBS_FIXEDORDER))
_GUICtrlRebar_SetBKColor($hReBar, 0)
; Создаёт элемент ToolBar, чтобы вставить его в ReBar
$hToolbar = _GUICtrlToolBar_Create($hgui, 0x0000894D)
; Добавляет стандартный системный bitmaps
Switch _GUICtrlToolbar_GetBitmapFlags($hToolbar)
Case 0
_GUICtrlToolbar_AddBitmap($hToolbar, 1, -1, $IDB_STD_SMALL_COLOR)
Case 2
_GUICtrlToolbar_AddBitmap($hToolbar, 1, -1, $IDB_STD_LARGE_COLOR)
EndSwitch
; Добавляет кнопки
_GUICtrlToolbar_AddButton($hToolbar, $idNew, $STD_FILENEW)
_GUICtrlToolbar_AddButton($hToolbar, $idOpen, $STD_FILEOPEN)
_GUICtrlToolbar_AddButton($hToolbar, $idSave, $STD_FILESAVE)
_GUICtrlToolbar_AddButtonSep($hToolbar)
_GUICtrlToolbar_AddButton($hToolbar, $idHelp, $STD_HELP)
; Создаёт раскрывающийся список, чтобы вставить его в ReBar
$hCombo = _GUICtrlComboBox_Create($hgui, "", 0, 0, 220)
_GUICtrlComboBox_BeginUpdate($hCombo)
_GUICtrlComboBox_AddDir($hCombo, @WindowsDir & "\*.exe")
_GUICtrlComboBox_EndUpdate($hCombo)
; Создаёт поле ввода, чтобы вставить его в ReBar
$hInput = GUICtrlCreateInput("Поиск: Быстрый доступ", 0, 0, 120, 20)
; Добавляет ленту с элементом toolbar в начало ReBar
_GUICtrlRebar_AddToolBarBand($hReBar, $hToolbar, "", 0, BitOR($RBBS_NOGRIPPER , $RBBS_NOVERT, $RBBS_HIDETITLE, $RBBS_CHILDEDGE))
_GUICtrlRebar_SetBandBackColor($hReBar, 0, 0)
_GUICtrlRebar_SetBandForeColor($hReBar, 0, 0)
; Добавляет ленту с элементом
_GUICtrlRebar_AddBand($hReBar, $hCombo, 80, 400, "Dir *.exe", 1, $RBBS_HIDETITLE)
_GUICtrlRebar_SetBandBackColor($hReBar, 1, 0)
_GUICtrlRebar_SetBandForeColor($hReBar, 1, 0)
; Добавляет другой элемент
_GUICtrlRebar_AddBand($hReBar, GUICtrlGetHandle($hInput), 120, 200, "SearchBox", 2, $RBBS_HIDETITLE)
_GUICtrlRebar_SetBandBackColor($hReBar, 2, 0)
_GUICtrlRebar_SetBandForeColor($hReBar, 2, 0)
$fGUI = GUICreate('#2', 610, 400-31, 0, 31, BitOR($WS_POPUP, $WS_GROUP, $WS_DISABLED))
_WinAPI_SetParent($fGUI, $hgui)
_WinAPI_DwmExtendFrameIntoClientArea($hgui, _WinAPI_CreateMargins(0, 0, 31, 0))
GUISetState(@SW_SHOW, $hgui)
GUISetState(@SW_SHOW, $fGUI)
EndFunc ;==>_Main
Func Event()
Switch @GUI_CtrlId
Case $GUI_EVENT_CLOSE
Exit
EndSwitch
EndFunc
While 1
Sleep(10)
WEnd
Последнее редактирование: