Отправлено: 10.05.16 11:38. Заголовок: Форма, BtnTextBox, TextBox и DatePicker

На форме есть объекты разные, речь идет о BtnTextBox, TextBox и DatePicker, т.е объектах , имеющих свойство Field.
1)Действительно, если это поле заполнить ссылкой на символьное поле, к примеру - dogovor->NR_DOG, то при открытии формы НОМЕР договора отображается.
Если поле числовое, к примеру - dogovor->SUMM , то при попытке открыть форму программа вываливается.

2) При закрытии формы, внесенные изменения никак в базе не сохраняются. Commit не помогает. Или нужно Replace выполнять ?

Форма строится в Дизайнере.

 Отправлено: 12.05.16 11:23. Заголовок: Vlad04 пишет: А при..

Vlad04 пишет:

цитата:

А примеры с xForm ?

Добавил небольшой пример для тестирования xForm

Vlad04 пишет:

цитата:

Формат сохранения данных формы не совсем удобный - вручную его редактировать сложно

Этот недостаток иногда может быть достоинством, поскольку редактирование формы будет осуществляться только средствами этой утилиты

 Отправлено: 14.05.16 18:45. Заголовок: Как правильно выраже..

Как правильно выражение

цитата:

Win_1.Text_1.Save

записать через проперти

SetProperty( "Win_1", "Text_1",.....

 Отправлено: 14.05.16 18:52. Заголовок: Vlad04 пишет:Как пра..

Vlad04 пишет:

цитата:

Как правильно ... записать

DoMethod("Win_1", "Text_1", "Save")

 Отправлено: 14.05.16 19:42. Заголовок: Ок Не понимаю я ещё..

Ок

Не понимаю я ещё это. Когда , что и почему

 Отправлено: 14.05.16 19:53. Заголовок: Vlad04 см. MiniGui...

Vlad04
см. MiniGui.chm в конце каждого описания есть PROPERTIES, EVENTS, METHOD

 Отправлено: 18.05.16 13:59. Заголовок: gfilatov2002 Добави..

gfilatov2002

цитата:

Добавил небольшой пример для тестирования xForm

С созданием формы в утилите проблем нет. А как встроить эту форму в программу ?

 Отправлено: 26.05.16 16:15. Заголовок: Ткните, пожалуйста н..

Ткните, пожалуйста носом в вышеупомянутую утилиту xForm!!! Где она обитает?
И в пример тоже...

 Отправлено: 26.05.16 16:23. Заголовок: fokinal21 Лезем в C..

fokinal21
Лезем в C:\MiniGUI\Doc\ChangeLog.txt там поиск по XFORM и далее видим дорогу типа
C:\MiniGUI\UTILS\xForm\

 Отправлено: 26.05.16 18:14. Заголовок: Vlad04 пишет:С созда..

Vlad04 пишет:

цитата:

С созданием формы в утилите проблем нет. А как встроить эту форму в программу ?

есть кнопочка 010101, которая создает myform.prg - из набранных контролов формы

 Отправлено: 31.05.16 09:43. Заголовок: Пример тот же. Контр..

Пример тот же.
Контрол DATEPICKER подключен к базе.
И если в базе поле не заполнено, он все равно кукую-то дату отображает(или текущую или предыдущей записи) .
Так же нельзя почистить дату , т.е просто сделать пустой.
Есть ли какие решения?

 Отправлено: 31.05.16 11:12. Заголовок: Vlad04 пишет: ак же..

Vlad04 пишет:

цитата:

ак же нельзя почистить дату , т.е просто сделать пустой. Есть ли какие решения?

 
 DEFINE DATEPICKER <ControlName> 
 [ ID <nId> ] 
 [ PARENT <ParentWindowName> ] 
 COL <nCol> 
 ROW <nRow> 
 [ VALUE <dValue> ]  
 [ FIELD <FieldName> ] 
 [ WIDTH <nWidth> ]  
 [ FONTNAME <cFontName> ] 
 [ FONTSIZE <nFontSize> ] 
 [ FONTBOLD < .T. | .F.> ]  
 [ FONTITALIC < .T. | .F.> ]  
 [ FONTUNDERLINE < .T. | .F.> ]  
 [ FONTSTRIKEOUT < .T. | .F.> ] 
 [ TOOLTIP <cToolTipText> ] 
 [ BACKCOLOR <anBackColor> ] 
 [ FONTCOLOR <anFontColor> ]  
 [ TITLEBACKCOLOR <anTitleBackColor> ] 
 [ TITLEFONTCOLOR <anTitleFontColor> ]  
 [ TRAILINGFONTCOLOR <trlFontColor> ] 
 [ RANGEMIN <dRangeMin> ] 
 [ RANGEMAX <dRangeMax> ] 
 [ SHOWNONE < .T. | .F.> ] 
 [ UPDOWN < .T. | .F.> ] 
 [ RIGHTALIGN < .T. | .F.> ]  
 [ DATEFORMAT <cDateFormat> ]  
 [ ONGOTFOCUS <OnGotFocusProcedure> | <bBlock> ] 
 [ ONCHANGE <OnChangeProcedure> | <bBlock> ]  
 [ ONLOSTFOCUS <OnLostFocusProcedure> | <bBlock> ] 
 [ ONENTER <OnEnterProcedure> | <bBlock> ]  
 [ HELPID <nHelpId> ] 
 [ INVISIBLE < .T. | .F.> ]  
 [ NOTABSTOP < .T. | .F.> ]  
  
 END DATEPICKER  
 

 Отправлено: 31.05.16 11:43. Заголовок: Понятно, но не превы..

Понятно, но не превычно как-то

 Отправлено: 14.06.16 09:49. Заголовок: ComboBox Работает с..

ComboBox

Работает с Базой.

цитата:

DEFINE COMBOBOX Combo_OSNOVANIE ROW 400 COL 140 WIDTH 150 HEIGHT 100 ITEMS {" Устава"," от себя лично "} FONTNAME 'Arial' TOOLTIP "Основание, на котором руководит Организацией" END COMBOBOX

Хотелось бы в базе сохранять значение ITEMS ( а не Value) и из базы считывать при открытии.
Свойства VALUESOURCE , ITEMSOURCE вроде бы не подходят

 Отправлено: 15.06.16 13:59. Заголовок: Домучил Combo. Може..

Домучил Combo.
Может и не все правильно - но работает с базой.
2 варианта
1-й в базе сохраняется Value
2-й - DisPlayValue
Combo

 Отправлено: 20.06.16 15:20. Заголовок: Menu Построено в ди..

Menu

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

Как нибудь можно переопределить некоторые элементы уже созданного меню?

 Отправлено: 20.06.16 20:57. Заголовок: Vlad04 пишет: Как н..

Vlad04 пишет:

цитата:

Как нибудь можно переопределить некоторые элементы уже созданного меню?

Поставь в ON INIT формы функцию, а в этой функции делай что хочешь:

SetProperty( ThisWindow.Name, "ЭлементМеню", "Enabled" , .F.) // блокировать объект
SetProperty( ThisWindow.Name, "ЭлементМеню", "Enabled" , .T.) // разблокировать объект

 Отправлено: 21.06.16 09:36. Заголовок: Немного не понятно к..

Немного не понятно как правильно писать?
Элемент меню у меня такой

цитата:

DEFINE POPUP "Сервис" MENUITEM "Индексы" ACTION {|| dbSelect('DBLIST'),CreaTBrows('dbList.UKS',0)} MENUITEM "Пользователи" ACTION {|| dbSelect('USERLIST'),CreaTBrows('USERList.UKS',0)} END POPUP

Я хочу заблокировать ВТОРУЮ строку - MENUITEM "Пользователи"

 Отправлено: 21.06.16 10:01. Заголовок: Vlad04 Для управлен..

Vlad04
Для управления меню надо использовать свойство NAME

 
 DEFINE MAIN MENU [ OF<ParentWindowName> ] 
  
 [ DEFINE ] [ MENU ] POPUP <cPopupCaption>  
 [ NAME <cPopupName> ] 
 [ IMAGE <cImage> ] 
 [ FONT <cFont> ] 
  
 MENUITEM <cItemCaption>  
 ACTION <ActionProcedureName> | <bBlock>  
 [ NAME <MenuItemName>] 
 [ IMAGE <cImageName> ] 
 [ CHECKMARK <cImage> ] 
 [ FONT <cFont> ] 
 [ CHECKED ] 
 [ DISABLED ] 
 [ MESSAGE <cMessage> ] 
 [ BREAKMENU ] 
 .... 
 и управлять 
 #command ENABLE MENUITEM <control> OF <form>; 
 => ; 
 _EnableMenuItem ( <"control"> , <"form"> ) 
  
 #command DISABLE MENUITEM <control> OF <form>; 
 => ; 
 _DisableMenuItem ( <"control"> , <"form"> ) 
  
 #command CHECK MENUITEM <control> OF <form>; 
 => ; 
 _CheckMenuItem ( <"control"> , <"form"> ) 
  
 #command UNCHECK MENUITEM <control> OF <form>; 
 => ; 
 _UnCheckMenuItem ( <"control"> , <"form"> ) 
  
 где <control> значение NAME