Что нового

Фоновый цвет в Rebar

musicstashall

Знающий
Сообщения
322
Репутация
7
Всем доброго.
Кто нибудь разъясните ситуацию, почему не могу применить фоновый цвет для всей ленты в 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
 
Последнее редактирование:
Верх