Отправлено: 19.04.24 15:22. Заголовок: работа с DEFINE TOOLBAR

Не плохой вроде объект, но имеет ограничения.
Можно ли его модифицировать как объект BUTTONEX:
1) можно заменить серый цвет на свой цвет ?
2) можно ли использовать градиент как на кнопках ?
3) можно ли использовать ICO вместо BMP ?
Для DEFINE CONTEXT MENU такая правка была.
4) Можно ли добавить использование цвета/градиента/иконки как сейчас на кнопках ?

              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) ) ; 
 

 Отправлено: 19.04.24 18:39. Заголовок: Вот примерно так на ..

Вот примерно так на С# можно:

И отдельно можно задать цвет фона.
А то получается что ТСБ цветной, а верхушка окна серого цвета.
У меня юзера привыкли в задаче к разным цветам, 5 видов работ - 5 разных цветных окон.

 Отправлено: 19.04.24 20:20. Заголовок: Andrey пишет: Можно..

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 ) }

 Отправлено: 20.04.24 21:49. Заголовок: Andrey пишет: замен..

Andrey пишет:

цитата:

заменить серый цвет на свой цвет ?

Да, можно уже сейчас.
Например, как на картинке ниже

 Отправлено: 20.04.24 23:57. Заголовок: А можно поменять мес..

А можно поменять местами ?
GetBox слева, а кнопки справа ?

 Отправлено: 21.04.24 11:00. Заголовок: Andrey пишет: GetBo..

Andrey пишет:

цитата:

GetBox слева, а кнопки справа ?

Нет. Кнопки тулбара всегда располагаются слева.
Но это можно сделать, если вместо тулбара использовать обычные кнопки, расположив их в ряд.

 Отправлено: 21.04.24 12:15. Заголовок: gfilatov2002 пишет: ..

gfilatov2002 пишет:

цитата:

Но это можно сделать, если вместо тулбара использовать обычные кнопки, расположив их в ряд.

Отчего ушли, к тому и пришли ...
Забыли в Микрософте что арабские страны читают наоборот...
Да и ладно, возвращаемся к кнопкам.

 Отправлено: 25.04.24 12:56. Заголовок: Посмотрел примеры SA..

Посмотрел примеры SAMPLES\BASIC\CONTAINERS\SPLITBOX
Хочу в начале формы сделать

   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   

Компилируется, далее при запуске вылетает с ошибкой.
Объект COMBOBOX работает, а GETBOX не может ?
Как тогда мне сделать такой ввод ?????