Отправлено: 09.01.14 18:21. Заголовок: Подскажите про TOOLBAR

На TOOLBAR'е есть несколько кнопок.
Можно ли програмно нажать некоторые кнопки при открытии окна?

 Отправлено: 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()
А там дальше эмулируй нажатие кнопок или просто вызов функции обработки кнопок.

 Отправлено: 10.01.14 07:25. Заголовок: Этот метод не работа..

Этот метод не работает, уже проверил.
Кнопки тулбара имеют параметр CHECK, и некоторые должны иметь изначально нажатый вид.
От состояния кнопки зависит свойство Value, которое я анализирую.
При создании кнопок они все отжаты и Value = F, выполнение метода OnClick
DoMethod('Form_sogl', 'Bt_dt', 'OnClick')
при старте, не изменяет ни вид кнопки ни её Value.
Или я что-то неправильно делаю

 Отправлено: 10.01.14 09:17. Заголовок: alex_II пишет: Или ..

alex_II пишет:

цитата:

Или я что-то неправильно делаю

Давай самодостаточный код примера. А то так трудно понять.

 Отправлено: 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 пишет:

цитата:

А там дальше эмулируй нажатие кнопок или просто вызов функции обработки кнопок

 Отправлено: 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. )
не утапливает кнопку
Пример выложу завтра

 Отправлено: 10.01.14 12:19. Заголовок: alex_II пишет: Кома..

alex_II пишет:

цитата:

Команда вида: SetProperty('Form_sogl', 'Bt_dt', 'Value', .F. ) не утапливает кнопку

И не будет !

SergKis пишет:

цитата:

SetProperty(cForm, cBtnToolBar1, "Enabled", .F. )

 Отправлено: 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

 Отправлено: 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

 Отправлено: 10.01.14 17:42. Заголовок: А этот TOOLBAR внизу..

А этот TOOLBAR внизу сделать можно ?

 Отправлено: 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

 Отправлено: 10.01.14 20:08. Заголовок: gfilatov2002 пишет: ..

gfilatov2002 пишет:

цитата:

Да, можно

Спасибо Григорий !
И еще один вопрос по TOOLBAR - цвет менять его можно ?
По хелпу не нашел.

 Отправлено: 10.01.14 21:50. Заголовок: Andrey пишет: еще ..

Andrey пишет:

цитата:

еще один вопрос по TOOLBAR - цвет менять его можно ?

Нет, для TOOLBAR используются системные цвета

 Отправлено: 11.01.14 05:25. Заголовок: Спасибо за помощь Гр..

Спасибо за помощь Григорий

 Отправлено: 21.03.18 12:45. Заголовок: А что , TOOLBAR подд..

А что , TOOLBAR поддерживает картинки для кнопок только из файлов ? из ресурса не отображает :(

 Отправлено: 21.03.18 13:01. Заголовок: Softlog86 пишет А чт..

Softlog86 пишет

цитата:

А что , TOOLBAR поддерживает картинки для кнопок только из файлов ? из ресурса не отображает :(

из ресурса работает (без расширения используете в кнопке и в rc файле прописываете) и из DEFINE IMAGELIST тоже

 Отправлено: 21.03.18 13:23. Заголовок: Softlog86 пишет: из..

Softlog86 пишет:

цитата:

из ресурса не отображает

Ну, рассмешил
В базовом примере CONTACTOS от автора библиотеки, который написан еще в 2003 году, используются 3 (три) тулбара, и все они берут картинки из ресурсов программы.

P.S. Еще одно доказательство того, что примеры никто не смотрит...

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

gfilatov2002 пишет:

цитата:

примеры никто не смотрит...

Это не так !

 Отправлено: 21.03.18 14:26. Заголовок: Звиняйте , люди доб..

Звиняйте , люди добрые :)
Там этих примеров просто МОРЕ .... аж глаза разбегаются .

А вот только не хочет картинку на кнопке отображать .... никак . :(

 Отправлено: 21.03.18 15:06. Заголовок: Softlog86 пишет: эт..

Softlog86 пишет:

цитата:

этих примеров просто МОРЕ

Накопилось за 13 лет, однако...

Softlog86 пишет:

цитата:

не хочет картинку на кнопке отображать

Прежде всего проверь, чтобы картинка для кнопки тулбара имела 256 цветов (8 бит/пикс).
Если цветность выше, то ее надо уменьшить

Ну, и как обычно: пример - в студию...

 Отправлено: 22.03.18 15:54. Заголовок: Всем спасибо . как в..

Всем спасибо . как всегда дело было не в бобине .... , а в .RC файле