Автор | Сообщение |
|
| |
Пост N: 107
Зарегистрирован: 12.07.06
|
|
Отправлено: 09.01.14 18:21. Заголовок: Подскажите про TOOLBAR
На TOOLBAR'е есть несколько кнопок. Можно ли програмно нажать некоторые кнопки при открытии окна?
|
|
|
Новых ответов нет
[см. все]
|
|
|
| постоянный участник
|
Пост N: 3196
Зарегистрирован: 12.09.06
|
|
Отправлено: 09.01.14 21:44. Заголовок: alex_II пишет: Можн..
alex_II пишет: цитата: | Можно ли програмно нажать некоторые кнопки при открытии окна? |
| Можно. При открытии окна есть всегда процедура инициализации окна. Пример: DEFINE WINDOW Form_5 ; ....................... FONT 'Tahoma' SIZE 14 ; ON INIT { || MyButton1(),MyPaintBook5() } или DEFINE WINDOW Form_5 ; ....................... FONT 'Tahoma' SIZE 14 ; ON INIT MyInitForm5() А там дальше эмулируй нажатие кнопок или просто вызов функции обработки кнопок.
|
|
|
|
| |
Пост N: 108
Зарегистрирован: 12.07.06
|
|
Отправлено: 10.01.14 07:25. Заголовок: Этот метод не работа..
Этот метод не работает, уже проверил. Кнопки тулбара имеют параметр CHECK, и некоторые должны иметь изначально нажатый вид. От состояния кнопки зависит свойство Value, которое я анализирую. При создании кнопок они все отжаты и Value = F, выполнение метода OnClick DoMethod('Form_sogl', 'Bt_dt', 'OnClick') при старте, не изменяет ни вид кнопки ни её Value. Или я что-то неправильно делаю
|
|
|
|
| постоянный участник
|
Пост N: 3197
Зарегистрирован: 12.09.06
|
|
Отправлено: 10.01.14 09:17. Заголовок: alex_II пишет: Или ..
alex_II пишет: цитата: | Или я что-то неправильно делаю |
| Давай самодостаточный код примера. А то так трудно понять.
|
|
|
|
| постоянный участник
|
Пост N: 284
Зарегистрирован: 17.02.12
|
|
Отправлено: 10.01.14 10:09. Заголовок: alex_II пишет:при ст..
alex_II пишет: цитата: | при старте, не изменяет ни вид кнопки ни её Value |
| так состоянием контролов и кнопок управляешь сам: SetProperty(cForm, cBtnToolBar1, "Enabled", .F. ) SetProperty(cForm, cBtnToolBar1, "Enabled", .T. ) если назначено SET KEY ... ACTION ..., то можно в OnInit делать PUSH KEY VK_F... или _PushKey(...) словом Andrey пишет: цитата: | А там дальше эмулируй нажатие кнопок или просто вызов функции обработки кнопок |
|
|
|
|
|
| |
Пост N: 109
Зарегистрирован: 12.07.06
|
|
Отправлено: 10.01.14 11:06. Заголовок: SergKis пишет: SetP..
SergKis пишет: цитата: | SetProperty(cForm, cBtnToolBar1, "Enabled", .F. ) SetProperty(cForm, cBtnToolBar1, "Enabled", .T. ) |
| Свойство Enabled мне не подходит, мне надо не отключать её, а отслеживать её два состояния, нажатое и отжатое. Команда вида: SetProperty('Form_sogl', 'Bt_dt', 'Value', .F. ) не утапливает кнопку Пример выложу завтра
|
|
|
|
| постоянный участник
|
Пост N: 3198
Зарегистрирован: 12.09.06
|
|
Отправлено: 10.01.14 12:19. Заголовок: alex_II пишет: Кома..
alex_II пишет: цитата: | Команда вида: SetProperty('Form_sogl', 'Bt_dt', 'Value', .F. ) не утапливает кнопку |
| И не будет ! SergKis пишет: цитата: | SetProperty(cForm, cBtnToolBar1, "Enabled", .F. ) |
|
|
|
|
|
| |
Пост N: 110
Зарегистрирован: 12.07.06
|
|
Отправлено: 10.01.14 15:47. Заголовок: Выкладываю рабочий п..
Выкладываю рабочий пример. Цель: при старте 3 кнопка должна быть нажата #include "minigui.ch" FUNCTION main DEFINE WINDOW FormTest AT 0,0 WIDTH 400 HEIGHT 200 MAIN DEFINE SPLITBOX DEFINE TOOLBAR TBar_1 BUTTONSIZE 24,18 BUTTON Bt_Exit CAPTION ' 1 ' ACTION ThisWindow.Release END TOOLBAR DEFINE TOOLBAR TBar_2 BUTTONSIZE 24,18 //CAPTION Space(20) BUTTON Bt_ls CAPTION ' 2 ' SEPARATOR ACTION NIL CHECK BUTTON Bt_dt CAPTION ' 3 ' SEPARATOR ACTION nil CHECK END TOOLBAR END SPLITBOX END WINDOW CENTER WINDOW FormTest ACTIVATE WINDOW FormTest RETURN
|
|
|
|
| moderator
|
Пост N: 540
Зарегистрирован: 11.02.10
|
|
Отправлено: 10.01.14 16:27. Заголовок: alex_II пишет: Цель..
alex_II пишет: цитата: | Цель: при старте 3 кнопка должна быть нажата |
| У меня сработало так Скрытый текст
#include "minigui.ch" FUNCTION main DEFINE WINDOW FormTest AT 0,0 WIDTH 400 HEIGHT 200 MAIN DEFINE SPLITBOX DEFINE TOOLBAR TBar_1 BUTTONSIZE 24,18 BUTTON Bt_Exit CAPTION ' 1 ' ACTION ThisWindow.Release END TOOLBAR DEFINE TOOLBAR TBar_2 BUTTONSIZE 24,18 //CAPTION Space(20) BUTTON Bt_ls CAPTION ' 2 ' SEPARATOR ACTION NIL CHECK BUTTON Bt_dt CAPTION ' 3 ' SEPARATOR ACTION nil CHECK END TOOLBAR END SPLITBOX END WINDOW FormTest.TBar_2.Bt_dt.value := .T. CENTER WINDOW FormTest ACTIVATE WINDOW FormTest RETURN NIL
|
|
|
|
|
| постоянный участник
|
Пост N: 3199
Зарегистрирован: 12.09.06
|
|
Отправлено: 10.01.14 17:42. Заголовок: А этот TOOLBAR внизу..
А этот TOOLBAR внизу сделать можно ?
|
|
|
|
| moderator
|
Пост N: 541
Зарегистрирован: 11.02.10
|
|
Отправлено: 10.01.14 19:33. Заголовок: Andrey пишет: TOOLB..
Andrey пишет: цитата: | TOOLBAR внизу сделать можно ? |
| Да, можно #include "minigui.ch" FUNCTION main DEFINE WINDOW FormTest AT 0,0 WIDTH 400 HEIGHT 200 MAIN //DEFINE SPLITBOX //DEFINE TOOLBAR TBar_1 BUTTONSIZE 24,18 bottom //END TOOLBAR DEFINE TOOLBAR TBar_2 BUTTONSIZE 24,18 bottom //CAPTION Space(20) BUTTON Bt_Exit CAPTION ' 1 ' ACTION ThisWindow.Release BUTTON Bt_ls CAPTION ' 2 ' SEPARATOR ACTION NIL CHECK BUTTON Bt_dt CAPTION ' 3 ' SEPARATOR ACTION nil CHECK END TOOLBAR //END SPLITBOX END WINDOW FormTest.TBar_2.Bt_dt.value := .T. CENTER WINDOW FormTest ACTIVATE WINDOW FormTest RETURN NIL
|
|
|
|
| постоянный участник
|
Пост N: 3200
Зарегистрирован: 12.09.06
|
|
Отправлено: 10.01.14 20:08. Заголовок: gfilatov2002 пишет: ..
gfilatov2002 пишет: Спасибо Григорий ! И еще один вопрос по TOOLBAR - цвет менять его можно ? По хелпу не нашел.
|
|
|
|
|
| moderator
|
Пост N: 542
Зарегистрирован: 11.02.10
|
|
Отправлено: 10.01.14 21:50. Заголовок: Andrey пишет: еще ..
Andrey пишет: цитата: | еще один вопрос по TOOLBAR - цвет менять его можно ? |
| Нет, для TOOLBAR используются системные цвета
|
|
|
|
| |
Пост N: 111
Зарегистрирован: 12.07.06
|
|
Отправлено: 11.01.14 05:25. Заголовок: Спасибо за помощь Гр..
Спасибо за помощь Григорий
|
|
|
|
| |
Пост N: 380
Зарегистрирован: 03.12.08
|
|
Отправлено: 21.03.18 12:45. Заголовок: А что , TOOLBAR подд..
А что , TOOLBAR поддерживает картинки для кнопок только из файлов ? из ресурса не отображает :(
|
|
|
|
| постоянный участник
|
Пост N: 1790
Зарегистрирован: 17.02.12
|
|
Отправлено: 21.03.18 13:01. Заголовок: Softlog86 пишет А чт..
Softlog86 пишет цитата: | А что , TOOLBAR поддерживает картинки для кнопок только из файлов ? из ресурса не отображает :( |
| из ресурса работает (без расширения используете в кнопке и в rc файле прописываете) и из DEFINE IMAGELIST тоже
|
|
|
|
| moderator
|
Пост N: 1258
Зарегистрирован: 11.02.10
|
|
Отправлено: 21.03.18 13:23. Заголовок: Softlog86 пишет: из..
Softlog86 пишет: Ну, рассмешил В базовом примере CONTACTOS от автора библиотеки, который написан еще в 2003 году, используются 3 (три) тулбара, и все они берут картинки из ресурсов программы. P.S. Еще одно доказательство того, что примеры никто не смотрит...
|
|
|
|
| |
Пост N: 6774
Зарегистрирован: 17.05.05
|
|
Отправлено: 21.03.18 14:15. Заголовок: gfilatov2002 пишет: ..
gfilatov2002 пишет: цитата: | примеры никто не смотрит... |
| Это не так !
|
|
|
|
| |
Пост N: 381
Зарегистрирован: 03.12.08
|
|
Отправлено: 21.03.18 14:26. Заголовок: Звиняйте , люди доб..
Звиняйте , люди добрые :) Там этих примеров просто МОРЕ .... аж глаза разбегаются . А вот только не хочет картинку на кнопке отображать .... никак . :(
|
|
|
|
| moderator
|
Пост N: 1259
Зарегистрирован: 11.02.10
|
|
Отправлено: 21.03.18 15:06. Заголовок: Softlog86 пишет: эт..
Softlog86 пишет: цитата: | этих примеров просто МОРЕ |
| Накопилось за 13 лет, однако... Softlog86 пишет: цитата: | не хочет картинку на кнопке отображать |
| Прежде всего проверь, чтобы картинка для кнопки тулбара имела 256 цветов (8 бит/пикс). Если цветность выше, то ее надо уменьшить Ну, и как обычно: пример - в студию...
|
|
|
|
| |
Пост N: 382
Зарегистрирован: 03.12.08
|
|
Отправлено: 22.03.18 15:54. Заголовок: Всем спасибо . как в..
Всем спасибо . как всегда дело было не в бобине .... , а в .RC файле
|
|
|
|