IForm Клас
Реалізує довільний діалог.
loDlg = CreateObject('IForm','Додати по шаблону ОГД') loDlg.WidthLabel = 100 && Вказує, що TLabel до TTxtBtn відображати окремо loDlg.WidthControl = 100 loDlg.AddNewObj('_NDoc','TTxtBtn', 'C',32,0, Tran(Val(loRec._NDoc)+1) ,'N документу#Right') loDlg.AddNewObj('_Suma','TTxtBtn', 'N',15,2, loRec._Suma ,'Сума ЮЗ#.') loDlg._Suma.Enabled = .F. loDlg._NDoc.CommandValid = [BProc.Doc.AnyDoc.AnyValid()] loDlg.Show(1) If VarType(loDlg)='O' And loDlg.Exit='OK' MessageBox('OK') EndIf
tcName, tcClass, tcType, tnWidth, tnDec, tValue, tcLabel, tcHelp
| Член | Тип | Параметри | Опис |
|---|---|---|---|
| Init('IForm',[cCaption],[lAutoCenter]) | L | cCaption-заголовок; lAutoCenter-центрування; | Конструктор |
| AddNewObj(cClass[,cType] [,nWidth][,nDec][,tValue] [,cLabel][,cHelp]) | L | cClass-класс(TTxtBtn); cType-тип; nWidth-довжина; nDec-для др.част N; cType-Тип; tValue-значення; cLabel-пояснення; cHelp-допомога;\\ | Додає контрол в обьект діалогу. Параметр cLabel може в кінці мати додаткові налаштування:Сума#Right#. #Right-прижимати пояснення вправо; #.-доповнювати пояснення до контролу крапками; |
| WidthControl | N | Ширина контролів (по замовчанню 300). | |
| WidthLabel | N | Ширина пояснення (по замовчанню 0 - в цьому випадку пояснення буде частиною контрола) |
Налаштування сторінки
smartfox/class/iform-164.txt · В останнє змінено: 2025/04/20 17:04 by admin
Якщо не вказано інше, вміст цієї Вікі підпадає під дію такої ліцензії: CC Attribution-Share Alike 4.0 International