serial KeyCodesCNTs Default %Library.TMFormClass 59254,52039 59254,52038 %Library.String %Library.Boolean "True" %Library.String %Library.String %Library.Integer 0 %Library.String %Library.String 0 %Library.String %Library.TMForm %Library.String "ObjectSpy" %Library.String %Library.String %Library.String 0 %TMMenuItem %TMMenuItem %TMMenuItem %TMMenuItem %TMMenuItem %TMPaintBox %TMPanel %Library.String 0 %TMSpeedButton %TMSpeedButton %TMSpeedButton %TMSpeedButton %TMSpeedButton %TMSpeedButton %TMSpeedButton %TMSpeedButton %TMSpeedButton %TMSpeedButton %Library.Integer 0 %Library.String 0 %TMLabel %TMLabel %TMMenuItem %TMMenuItem %TMMenuItem %TMMenuItem %TMMenuItem %Library.Boolean %Library.Boolean %Library.Boolean %TMPopupMenu %Library.Integer 0 %TMPopupMenu %TMMenuItem %TMMenuItem %TMMenuItem %TMMenuItem %TMMenuItem %TMMenuItem %TMMenuItem %TMMenuItem %TMMenuItem %TMMenuItem %TMMenuItem %TMMenuItem %TMMenuItem %TMPopupMenu %TMMenuItem %TMMenuItem %TMMenuItem %TMMenuItem %TMPanel %TMPanel %TMScrollBox %TMEdit initvalue:%String 0 %Status Value:%String 0 %Library.Status 0 Value:%String 0 %Library.Status Value:%String 0 %Library.Status Value:%String 0 %Library.Status 0 Args:%String 0 Args:%String 0 Args:%String 0 Args:%String 0 0 0 StopKey:%String 0 %Library.Integer 0 initvalue:%String 0 MApplication initvalue:%String 0 %Status Args:%String 0 Args:%String 0 Args:%String 0 Value:%String 0 %Library.Status 0 0 Args:%String 0 Args:%String 0 Args:%String 0 Args:%String 0 Args:%String 0 Args:%String 0 Args:%String 0 Args:%String 0 Args:%String 0 0 MaxLblWidth Set MaxLblWidth=Label.Width . Set ..LabelRefs=..LabelRefs_Label_"/" . Set iCnt=iCnt+1 Set iCnt=2 For i=2:1:count+1 Do . Set ..lblClass.Caption="Loading... "_ (50+(((i-1)*50)\count)) _"%" . Do MApplication.ProcessMessages() . Quit:(cdef.Properties.GetAt(i-1).Calculated) . Quit:(cdef.Properties.GetAt(i-1).Private) . Set tmpName=cdef.Properties.GetAt(i-1).Name . Set tmpType=cdef.Properties.GetAt(i-1).Type . New Edit,tmpProp . Set tmpProp=cdef.Properties.GetAt(i-1) . If (tmpProp.Parameters.GetAt("VALUELIST")'="") && (tmpProp.Collection="") Do .. Set Edit=##class(UI.Lib.Ctrl.TDAComboBox).%New($LB(%this.sbProperties.Address,0)) .. Set Edit.DisplayList=cdef.Properties.GetAt(i-1).Parameters.GetAt("DISPLAYLIST") .. Set Edit.ValueList=cdef.Properties.GetAt(i-1).Parameters.GetAt("VALUELIST") . Else Do .. Set Edit=##class(UI.Lib.Ctrl.TDAEdit).%New($LB(%this.sbProperties.Address,0)) .. Set Edit.MinLen=cdef.Properties.GetAt(i-1).Parameters.GetAt("MINLEN") .. Set Edit.MaxLen=cdef.Properties.GetAt(i-1).Parameters.GetAt("MAXLEN") .. Set Edit.Scale=cdef.Properties.GetAt(i-1).Parameters.GetAt("SCALE") .. Set Edit.Pattern=cdef.Properties.GetAt(i-1).Parameters.GetAt("PATTERN") . If iCnt#2=0 Set Edit.Left=70+MaxLblWidth . Else Set Edit.Left=520+MaxLblWidth . If (cdef.Properties.GetAt(i-1).Collection'="") || (cdef.Properties.GetAt(i-1).Datatype=0) Do .. Set Edit.ReadOnly="True" .. Set Edit.BaseColor=15461355 .. Set Edit.BaseFontColor=$$$clGray .. Set Edit.Hint="This field shows the object reference, click on the label for further details." .. ;Set Edit.DragMode="dmAutomatic" .. ;Set Edit.Cursor=$$$crHandPoint .. Set Edit.OnStartDrag=$LB(%this,"dCOMPEVENTStartDrag") .. Set Edit.OnEndDrag=$LB(%this,"dCOMPEVENTEndDrag") .. Set Edit.OnDragOver=$LB(%this,"dCOMPEVENTDragOver") .. Set Edit.OnDragDrop=$LB(%this,"dCOMPEVENTDragDrop") . Set Edit.OnMessage=$LB(%this,"OnMessage") . Set Edit.Tag=cdef.Properties.GetAt(i-1).Type . Set Edit.Top=((iCnt-(iCnt#2))*12)-4 . Set Edit.Width=250 . If cdef.Properties.GetAt(i-1).Collection="" Do ;Single Value .. If tmpType["Integer" Set Edit.AllowedCharSet="csInteger" .. If tmpType["Float" Set Edit.AllowedCharSet="csFloat" . Set Edit.Enabled="False" . If cdef.Properties.GetAt(i-1).MultiDimensional Do .. Set Edit.Text="MultiDimensional" .. Set Edit.ReadOnly="True" .. Set Edit.BaseColor=15461355 .. Set Edit.BaseFontColor=$$$clGray . Else Do .. Set Edit.CoupledProperty=tmpName . Set Edit.FCoupledORef=0 . Set ..EditRefs=..EditRefs_Edit_"/" . Set iCnt=iCnt+1 ;If $zobjstate(Edit) Do ;. Set ..Form.Height=Edit.Top+130 //Strippen van laatste "/" DELs New Len Set Len=$L(..LabelRefs) Set ..LabelRefs=$E(..LabelRefs,1,Len-1) Set Len=$L(..EditRefs) Set ..EditRefs=$E(..EditRefs,1,Len-1) Do cdef.%Close() Set ..sbProperties.Visible="True" ;End of user code s Args=$lb(Sender) q ]]> Args:%String 0 Args:%String 0 Args:%String 0 Args:%String 0 0 0) Do . Do ..dlgErrorList.Form.ShowModal() Quit ]]> 0 0 Do . Set tmpMenuItem=##class(%TMMenuItem).%New($LB(%this.pmAllIDs.Address,0)) . Set tmpMenuItem.Caption="-" . Set:((Loop#20)=0) tmpMenuItem.Break=$$$mbBarBreak . Do ..pmAllIDs.Items.Add(tmpMenuItem) Set Loop=Loop+1 Set tmpMenuItem=##class(%TMMenuItem).%New($LB(%this.pmAllIDs.Address,0)) Set tmpMenuItem.Caption="..." Set tmpMenuItem.OnClick=$LB(%this,"OnpmiIDSelected") Set:((Loop#20)=0) tmpMenuItem.Break=$$$mbBarBreak Do ..pmAllIDs.Items.Add(tmpMenuItem) Quit ]]> Args:%String 0 Args:%String 0 Args:%String 0 Args:%String 0 Args:%String 0 Args:%String 0 Args:%String 0 Args:%String 0 Args:%String 0 Args:%String 0 Args:%String 0 Args:%String 0 Args:%String 0 Args:%String 0 Args:%String 0 Args:%String 0 Args:%String 0 "_tmpEdit.Text_" " .. Set:(Loop'=Max) ClipText=ClipText_$C(13,10) Set MApplication.ClipboardText=ClipText ;End of user code s Args=$lb(Sender) q ]]> Args:%String 0 0) Do . Do ..dlgErrorList.Form.ShowModal() ;End of user code s Args=$lb(Sender) q ]]> Args:%String 0 "_$C(13,10) .. Set ClipText=ClipText_$C(9)_tmpEdit.Text_$C(13,10) .. Set ClipText=ClipText_"" .. Set:(Loop'=Max) ClipText=ClipText_$C(13,10,13,10) Set MApplication.ClipboardText=ClipText ;End of user code s Args=$lb(Sender) q ]]> Args:%String 0 %Library.CacheSerialState list "%Library.TMFormClass" Address Form ArrayKey CloseObjects Collection CopyValues Counter CurrentClass CurrentORef EditRefs FormName IdFields Label1 LabelRefs MasterORef MenuItem1 MenuItem3 MenuItem4 MenuItem5 MenuItem6 PaintBox Panel1 ParentORef btnAllKeys btnBeginKey btnClearArray btnDelete btnEndKey btnNew btnNextKey btnOk btnPrevKey btnSave lblClass lblCount mmoInterne myDatatype myPersistent mySystem pmAllIDs pmORefContainer pmUtils pmiAddNewItem pmiAddToContainer pmiAddViaID pmiAddViaORef pmiCopyBoth pmiCopyFNToClip pmiCopyFVToClip pmiCopyValues pmiCreatePiece pmiGetFromContainer pmiIgnoreEmpties pmiNew pmiOneLineXML pmiPasteValues pmiReadList pmiXML pnlActions pnlInternMsgBoard pnlMsg sbProperties txtCurrentKey MenuItem7 MenuItem8 pmiClearAllReferences pmiValidateRefs pmiConfirmPaste pmiClearFieldValues dlgPickIDFromList dlgErrorList btnLock miSep5 miSep6 pmiDataReplicator pmiMethodXecute miQueryXecuter miCopyClassName miCopyObjectID