Форум » GUI » работа с DEFINE TOOLBAR » Ответить
работа с DEFINE TOOLBAR
Andrey: Не плохой вроде объект, но имеет ограничения. Можно ли его модифицировать как объект BUTTONEX: 1) можно заменить серый цвет на свой цвет ? 2) можно ли использовать градиент как на кнопках ? 3) можно ли использовать ICO вместо BMP ? Для DEFINE CONTEXT MENU такая правка была. 4) Можно ли добавить использование цвета/градиента/иконки как сейчас на кнопках ? [pre2] ON MOUSEHOVER ( This.GradientFill := aGrFill , This.Fontcolor := aFntClr[2] ,; This.Icon := LoadIconByName(aIcon[2], nSizeIcon, nSizeIcon) ) ; ON MOUSELEAVE ( This.GradientOver := aGrOver , This.Fontcolor := aFntClr[1] ,; This.Icon := LoadIconByName(aIcon[1], nSizeIcon, nSizeIcon) ) ; [/pre2]
Ответов - 7
Andrey: Вот примерно так на С# можно: И отдельно можно задать цвет фона. А то получается что ТСБ цветной, а верхушка окна серого цвета. У меня юзера привыкли в задаче к разным цветам, 5 видов работ - 5 разных цветных окон.
gfilatov2002: Andrey пишет: Можно ли добавить использование цвета Да, есть такая возможность, если использовать модифицированный ButtonEx, как в примере \SAMPLES\Advanced\SetThemes Andrey пишет: У меня юзера привыкли в задаче к разным цветам, 5 видов работ В этом примере использованы разные цветовые схемы: LOCAL aColors_Office2003Blue := { RGB( 159, 191, 236 ), RGB( 159, 191, 236 ), RGB( 54, 102, 187 ) } LOCAL aColors_Office2003Green := { RGB( 234, 240, 207 ), RGB( 234, 240, 207 ), RGB( 178, 193, 140 ) } LOCAL aColors_Office2003Orange := { RGB( 251, 230, 148 ), RGB( 251, 230, 148 ), RGB( 239, 150, 21 ) } LOCAL aColors_Office2003Silver := { RGB( 225, 226, 236 ), RGB( 225, 226, 236 ), RGB( 150, 148, 178 ) } LOCAL aColors_Azure := { RGB( 222, 218, 202 ), RGB( 222, 218, 202 ), RGB( 192, 185, 154 ) } LOCAL aColors_DarkBlue := { RGB( 89, 135, 214 ), RGB( 89, 135, 214 ), RGB( 4, 57, 148 ) }, h LOCAL aColors_LightGreen := { RGB( 235, 245, 214 ), RGB( 235, 245, 214 ), RGB( 195, 224, 133 ) }
gfilatov2002: Andrey пишет: заменить серый цвет на свой цвет ? Да, можно уже сейчас. Например, как на картинке ниже
Andrey: А можно поменять местами ? GetBox слева, а кнопки справа ?
gfilatov2002: Andrey пишет: GetBox слева, а кнопки справа ? Нет. Кнопки тулбара всегда располагаются слева. Но это можно сделать, если вместо тулбара использовать обычные кнопки, расположив их в ряд.
Andrey: gfilatov2002 пишет: Но это можно сделать, если вместо тулбара использовать обычные кнопки, расположив их в ряд. Отчего ушли, к тому и пришли ... Забыли в Микрософте что арабские страны читают наоборот... Да и ладно, возвращаемся к кнопкам.
Andrey: Посмотрел примеры SAMPLES\BASIC\CONTAINERS\SPLITBOX Хочу в начале формы сделать [pre2] DEFINE SPLITBOX HANDLE hSpl @ nG, nG LABEL Label_1 VALUE "Поиск:" AUTOSIZE TRANSPARENT @ nG + 20, nG GETBOX GB_Find WIDTH 150 HEIGHT 30 VALUE "строка поиска" ; PICTURE "@K" NOTABSTOP [/pre2] Компилируется, далее при запуске вылетает с ошибкой. Объект COMBOBOX работает, а GETBOX не может ? Как тогда мне сделать такой ввод ?????
полная версия страницы