Автор | Сообщение |
|
| постоянный участник
|
Пост N: 7730
Зарегистрирован: 12.09.06
|
|
Отправлено: 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) ) ;
|
|
|
Ответов - 7
[только новые]
|
|
|
| постоянный участник
|
Пост N: 7731
Зарегистрирован: 12.09.06
|
|
Отправлено: 19.04.24 18:39. Заголовок: Вот примерно так на ..
Вот примерно так на С# можно: И отдельно можно задать цвет фона. А то получается что ТСБ цветной, а верхушка окна серого цвета. У меня юзера привыкли в задаче к разным цветам, 5 видов работ - 5 разных цветных окон.
|
|
|
|
| moderator
|
Пост N: 2307
Зарегистрирован: 11.02.10
|
|
Отправлено: 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 ) } |
|
|
|
|
|
| moderator
|
Пост N: 2308
Зарегистрирован: 11.02.10
|
|
Отправлено: 20.04.24 21:49. Заголовок: Andrey пишет: замен..
Andrey пишет: цитата: | заменить серый цвет на свой цвет ? |
| Да, можно уже сейчас. Например, как на картинке ниже
|
|
|
|
| постоянный участник
|
Пост N: 7732
Зарегистрирован: 12.09.06
|
|
Отправлено: 20.04.24 23:57. Заголовок: А можно поменять мес..
А можно поменять местами ? GetBox слева, а кнопки справа ?
|
|
|
|
| moderator
|
Пост N: 2309
Зарегистрирован: 11.02.10
|
|
Отправлено: 21.04.24 11:00. Заголовок: Andrey пишет: GetBo..
Andrey пишет: цитата: | GetBox слева, а кнопки справа ? |
| Нет. Кнопки тулбара всегда располагаются слева. Но это можно сделать, если вместо тулбара использовать обычные кнопки, расположив их в ряд.
|
|
|
|
| постоянный участник
|
Пост N: 7733
Зарегистрирован: 12.09.06
|
|
Отправлено: 21.04.24 12:15. Заголовок: gfilatov2002 пишет: ..
gfilatov2002 пишет: цитата: | Но это можно сделать, если вместо тулбара использовать обычные кнопки, расположив их в ряд. |
| Отчего ушли, к тому и пришли ... Забыли в Микрософте что арабские страны читают наоборот... Да и ладно, возвращаемся к кнопкам.
|
|
|
|
| постоянный участник
|
Пост N: 7740
Зарегистрирован: 12.09.06
|
|
Отправлено: 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 не может ? Как тогда мне сделать такой ввод ?????
|
|
|
|