Место общения программистов, форум разработчиков БД на Clarion
https://forum.clarionlife.net/
Это не совсем так. Я прекрасно работаю в C11, смотрю работы, делаю сборки, некоторые исправления.
Шаблон, формирующий меню, понятен. Я о динамике. Ну вот надо задизейблить пункт меню по какому-то критерию. Как? Меню уже есть.finsoftrz писал(а): ↑02 Апрель 2023, 17:11Вообще, это не так делается. Я писал только что, пункты контекстного меню обычно привязаны к кнопке. В зависимости от нее и устанавливается доступность. Например, если кнопка делается недоступной на уровне прав доступа, ее название меняется на "..." (сама кнопка скрыта). Это название и проверяет шаблон, формирующий popup меню. Можно и по другому реализовать, вопрос фантазии.
Код: Выделить всё
IF PopupMgr.GetItemEnabled('Save') ! if item is enabled
PopupMgr.SetItemEnable('Save',False) ! disable it
ELSE ! if item is disabled
PopupMgr.SetItemEnable('Save',True) ! enable it
END
Меню формируется при каждом обращении заново. Это просто строка параметра popup. Для критерия в шаблоне есть отдельный промпт, в который можно занести условие недоступности, если такая потребность возникла.kreator писал(а): ↑02 Апрель 2023, 21:56Шаблон, формирующий меню, понятен. Я о динамике. Ну вот надо задизейблить пункт меню по какому-то критерию. Как? Меню уже есть.finsoftrz писал(а): ↑02 Апрель 2023, 17:11Вообще, это не так делается. Я писал только что, пункты контекстного меню обычно привязаны к кнопке. В зависимости от нее и устанавливается доступность. Например, если кнопка делается недоступной на уровне прав доступа, ее название меняется на "..." (сама кнопка скрыта). Это название и проверяет шаблон, формирующий popup меню. Можно и по другому реализовать, вопрос фантазии.
Вы покажите как. Слова мне не нужны. Вы топите за Clarion/ШВС, а там тонны тексты. В ABC ничего такого нет, вызов одного метода.
Про ABC я всё знаю. Хотелось бы увидеть текст ШВС применительно к изменению параметров пункта меню.finsoftrz писал(а): ↑03 Апрель 2023, 16:04 Что хотите увидеть, обозначьтесь. Я топлю за то, что надо максимально использовать шаблоны вместо написания ручного кода, если такое возможно. Я работаю с процедурными шаблонами, могу только показать, как у меня. Как аналогично сделать для abc, либо сами думайте, либо спросите у кого-нибудь, кто умеет шаблоны к abc.
Код: Выделить всё
BRW1::PopupText = ''
IF BRW1::RecordCount
IF ?Copy{PROP:Disable}=FALSE
BRW1::PopupText=CLIP(BRW1::PopupText) & '|' & '' & CLIP(?Copy{Prop:Text})
ELSE
BRW1::PopupText=CLIP(BRW1::PopupText) & '|~' & '' & CLIP(?Copy{Prop:Text})
END
IF ?View{PROP:Disable}=FALSE
BRW1::PopupText=CLIP(BRW1::PopupText) & '|' & '' & CLIP(?View{Prop:Text})
ELSE
BRW1::PopupText=CLIP(BRW1::PopupText) & '|~' & '' & CLIP(?View{Prop:Text})
END
IF ?Shtamp{PROP:Disable}=FALSE
BRW1::PopupText=CLIP(BRW1::PopupText) & '|' & '' & CLIP(?Shtamp{Prop:Text})
ELSE
BRW1::PopupText=CLIP(BRW1::PopupText) & '|~' & '' & CLIP(?Shtamp{Prop:Text})
END
BRW1::PopupText=CLIP(BRW1::PopupText) & '|-'
IF ?FsBrRefresh{PROP:Disable}=FALSE
BRW1::PopupText=CLIP(BRW1::PopupText) & '|' & '' & CLIP(?FsBrRefresh{Prop:Text})
ELSE
BRW1::PopupText=CLIP(BRW1::PopupText) & '|~' & '' & CLIP(?FsBrRefresh{Prop:Text})
END
CLEAR(BRW1::TempPopupText)
IF ?Insert:2{PROP:Disable}
BRW1::TempPopupText = '~' & '' & '&Добавить'
ELSE
BRW1::TempPopupText = '' & '&Добавить'
END
IF ?Change:2{PROP:Disable}
BRW1::TempPopupText = CLIP(BRW1::TempPopupText) & '|~' & '' & '&Изменить'
ELSE
BRW1::TempPopupText = CLIP(BRW1::TempPopupText) & '|' & '' & '&Изменить'
END
IF ?Delete:2{PROP:Disable}
BRW1::TempPopupText = CLIP(BRW1::TempPopupText) & '|~' & '' & '&Удалить'
ELSE
BRW1::TempPopupText = CLIP(BRW1::TempPopupText) & '|' & '' & '&Удалить'
END
IF BRW1::PopupText
BRW1::PopupText = CLIP(BRW1::TempPopupText) & '|-|' & BRW1::PopupText
ELSE
BRW1::PopupText = CLIP(BRW1::TempPopupText)
END
ELSE
IF ?Copy{PROP:Disable}=FALSE
BRW1::PopupText=CLIP(BRW1::PopupText) & '|' & '' & CLIP(?Copy{Prop:Text})
ELSE
BRW1::PopupText=CLIP(BRW1::PopupText) & '|~' & '' & CLIP(?Copy{Prop:Text})
END
IF ?View{PROP:Disable}=FALSE
BRW1::PopupText=CLIP(BRW1::PopupText) & '|' & '' & CLIP(?View{Prop:Text})
ELSE
BRW1::PopupText=CLIP(BRW1::PopupText) & '|~' & '' & CLIP(?View{Prop:Text})
END
IF ?Shtamp{PROP:Disable}=FALSE
BRW1::PopupText=CLIP(BRW1::PopupText) & '|' & '' & CLIP(?Shtamp{Prop:Text})
ELSE
BRW1::PopupText=CLIP(BRW1::PopupText) & '|~' & '' & CLIP(?Shtamp{Prop:Text})
END
BRW1::PopupText=CLIP(BRW1::PopupText) & '|-'
IF ?FsBrRefresh{PROP:Disable}=FALSE
BRW1::PopupText=CLIP(BRW1::PopupText) & '|' & '' & CLIP(?FsBrRefresh{Prop:Text})
ELSE
BRW1::PopupText=CLIP(BRW1::PopupText) & '|~' & '' & CLIP(?FsBrRefresh{Prop:Text})
END
CLEAR(BRW1::TempPopupText)
IF ?Insert:2{PROP:Disable}
BRW1::TempPopupText = '~' & '' & '&Добавить'
ELSE
BRW1::TempPopupText = '' & '&Добавить'
END
BRW1::TempPopupText = CLIP(BRW1::TempPopupText) & '|~' & '' & '&Изменить'
BRW1::TempPopupText = CLIP(BRW1::TempPopupText) & '|~' & '' & '&Удалить'
IF BRW1::PopupText
BRW1::PopupText = CLIP(BRW1::TempPopupText) & '|-|' & BRW1::PopupText
ELSE
BRW1::PopupText = CLIP(BRW1::TempPopupText)
END
END
EXECUTE(POPUP(BRW1::PopupText))
IF ~?Insert:2{PROP:Disable}
POST(Event:Accepted,?Insert:2)
END
IF ~?Change:2{PROP:Disable}
POST(Event:Accepted,?Change:2)
END
IF ~?Delete:2{PROP:Disable}
POST(Event:Accepted,?Delete:2)
END
POST(Event:Accepted,?Copy)
POST(Event:Accepted,?View)
POST(Event:Accepted,?Shtamp)
POST(Event:Accepted,?FsBrRefresh)
END
Пересоздается перед каждым обращением. Условия вставляются в текст из шаблонов, все управляется. При желании можно и в класс обернуть, смысла только особого нет.Игорь Столяров писал(а): ↑05 Апрель 2023, 17:13 Т.е. нельзя здесь управлять пунктами PopUp меню. И оно пересозаётся перед каждым обращением.
Разве что, как-то всю эту красоту забанить и вручную полностью формировать строку BRW1::PopupText с учётом условий.
Печаль.
Иной подход. Т.е. здесь шаблон - это по сути надстройка над кодом.
Это да. И с готовым приложением, я думаю, что тоже самое.
У меня несколько другая точка зрения на преимущество и недостатки объектов. Если бы придерживались первоначальной стратегии использования простых ненаследуемых объектов, сохранив методологию процедурных шаблонов, то, возможно, и топспид так быстро не схлопнулся. В конце концов не просто так SV официально "отменило" термин legacy применительно к процедурным шаблонам.Игорь Столяров писал(а): ↑05 Апрель 2023, 20:39Это да. И с готовым приложением, я думаю, что тоже самое.
Преимущество объектов в простоте поддержки, изменении и развитии кода.
Но если для проекта это не требуется со времён ШВС, то он и хорошо с ним сочетается.
Ну, по крайне мере пока SV не зарубит поддержку Legacy Template.
Что интересно. Если помните - был какой-то взрыв этих шаблонописателей в Legacy.
А вот в ABC они почему-то не пошли. Там была пара убогих попыток "руссификации" и всё.
То ли уровень сложности другой, то ли рынок Clarion уже сдулся, то ли естественная убыль.