serial KeyCodesCNTs Default %Library.TMFormClass %Library.String %Library.Boolean "True" %Library.String %Library.String %Library.String %Library.String 0 %Library.String %Library.TMForm %Library.String "ObjectSpy" %Library.String %Library.String %TMMenuItem %TMMenuItem %TMMenuItem %TMMenuItem %TMMenuItem %TMPanel %TMPanel %Library.String 0 %TMSpeedButton %TMSpeedButton %TMSpeedButton %TMSpeedButton %TMSpeedButton %Library.String 0 %Library.String 0 %TMLabel %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 %TMMenuItem %TMMenuItem %TMMenuItem %TMScrollBox initvalue:%String 0 %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 0 initvalue:%String 0 MApplication initvalue:%String 0 %Status Args:%String 0 Args:%String 0 Args:%String 0 2 Do .. Set ShowVal=..pmIDs.Items.GetItem(0).Caption . Else Do .. Set ShowVal="" Else Do . Set ShowVal=..CurrentORef.%Id() Set InputBox.txtValue.Text=ShowVal New tmpAnswer,ClassExists Set (tmpAnswer,ClassExists)="" For Quit:((tmpAnswer=$$$mrCancel) || (ClassExists)) Do . Set retID="" . Set tmpAnswer=InputBox.Form.ShowModal() . If tmpAnswer=$$$mrOk Do .. Set retID=InputBox.txtValue.Text .. Xecute "Set ClassExists=##class(" _ ..CurrentClass _ ").%ExistsId(""" _ retID _ """)" .. If 'ClassExists Do MApplication.MessageBox("Het opgegeven ID bestaat niet.","Object Spy",$$$MBICONINFORMATION) Do InputBox.%Close() Quit retID ]]> 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 New Edit,tmpProp 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 . 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" . Else Do .. Set Edit.CoupledProperty=tmpName . Set Edit.FCoupledORef=0 . Set ..EditRefs=..EditRefs_+Edit_"/" . Set iCnt=iCnt+1 If $zobjstate($G(Edit)) Do . Set:((Edit.Top+130)<..Form.Height) ..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" Set MApplication.ScreenCursor=$$$crDefault ;End of user code s Args=$lb(Sender) q ]]> Args:%String 0 Args:%String 0 Args:%String 0 Args:%String 0 Args:%String 0 0 0) Do . Do ..dlgErrorList.Form.ShowModal() Quit ]]> FetchMore:%Boolean=0 0 2 Do . For Loop=1:1:$L(tmpClass,".")-2 Do .. Set $E(tmpClass,$F(tmpClass,".")-1)="_" If $E(tmpClass,1,4)="User" Do . Set $E(tmpClass,1,4)="SQLUser" */ Set result=##class(%ResultSet).%New(..CurrentClass_":Extent") ;Set result=##class(%ResultSet).%New("%DynamicQuery:SQL") ;New Prep ;Set Prep=result.Prepare("SELECT ID From " _ tmpClass) Do result.Execute() New Loop,tmpMenuItem,MoreMenuItem,EOF Set Loop=0 For Set EOF='result.Next() Quit:(EOF) Quit:(Loop=160) Do . Set tmpMenuItem=##class(%TMMenuItem).%New($LB(%this.pmIDs.Address,0)) . Set tmpMenuItem.Caption=result.Get("ID") . Set tmpMenuItem.OnClick=$LB(%this,"OnpmiIDSelected") . Set:((Loop#40)=0) tmpMenuItem.Break=$$$mbBarBreak . Do ..pmIDs.Items.Add(tmpMenuItem) . Do:(FetchMore) ..dlgPickIDFromList.lbValues.Items.AddObject(result.Get("ID"),1) //1='enabled' . Set Loop=Loop+1 New IDsAvailable Set IDsAvailable=(Loop'=0) If EOF && IDsAvailable Do . Set tmpMenuItem=##class(%TMMenuItem).%New($LB(%this.pmIDs.Address,0)) . Set tmpMenuItem.Caption="-" . Set:((Loop#20)=0) tmpMenuItem.Break=$$$mbBarBreak . Do ..pmIDs.Items.Add(tmpMenuItem) . Set Loop=Loop+1 If 'EOF Do . Set MoreMenuItem=##class(%TMMenuItem).%New($LB(%this.pmIDs.Address,0)) . Set:((Loop#20)=0) MoreMenuItem.Break=$$$mbBarBreak . Do ..pmIDs.Items.Add(MoreMenuItem) . If FetchMore Do .. Set ..lblClass.Caption="Fetching more ID's..." .. Do MApplication.ProcessMessages() .. ;Er werd reeds nog een Result.Next uitgevoerd, echter loop=160 zorgde voor quit: .. Do ..dlgPickIDFromList.lbValues.Items.Add(result.Get("ID")) .. New MoreLoad,EarlyQuit .. Set (MoreLoad,EarlyQuit)=0 .. For Quit:'result.Next() Quit:(EarlyQuit) Do ... Do ..dlgPickIDFromList.lbValues.Items.AddObject(result.Get("ID"),1) ... Set MoreLoad=MoreLoad+1 ... If MoreLoad#5000=0 Set EarlyQuit=(MApplication.MessageBox("5000 new ID's loaded. Continue?","ObjectSpy",$$$MBOKCANCEL+$$$MBICONQUESTION)=$$$mrCancel) .. Set MoreMenuItem.Caption="&View all..." .. Set MoreMenuItem.OnClick=$LB(%this,"OnpmiViewMoreClick") . Else Do .. Set MoreMenuItem.Caption="&Load all" .. Set MoreMenuItem.OnClick=$LB(%this,"OnpmiMoreClick") . Set Loop=Loop+1 Do result.%Close() Set tmpMenuItem=##class(%TMMenuItem).%New($LB(%this.pmIDs.Address,0)) Set tmpMenuItem.Caption="&Refresh list" Set tmpMenuItem.OnClick=$LB(%this,"OnpmiRefreshClick") Set:((Loop#20)=0) tmpMenuItem.Break=$$$mbBarBreak Do ..pmIDs.Items.Add(tmpMenuItem) Set Loop=Loop+1 If IDsAvailable Do . Set tmpMenuItem=##class(%TMMenuItem).%New($LB(%this.pmIDs.Address,0)) . Set tmpMenuItem.Caption="-" . Set:((Loop#20)=0) tmpMenuItem.Break=$$$mbBarBreak . Do ..pmIDs.Items.Add(tmpMenuItem) . Set Loop=Loop+1 . Set tmpMenuItem=##class(%TMMenuItem).%New($LB(%this.pmIDs.Address,0)) . Set tmpMenuItem.Caption="..." . Set tmpMenuItem.OnClick=$LB(%this,"OnpmiIDSelected") . Set:((Loop#20)=0) tmpMenuItem.Break=$$$mbBarBreak . Do ..pmIDs.Items.Add(tmpMenuItem) . Set Loop=Loop+1 Set ..lblClass.Caption=..CurrentClass If FetchMore Do . Do ..OnpmiViewMoreClick(Args) Set MApplication.ScreenCursor=$$$crDefault 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 "_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 ]]> %Library.CacheSerialState list "%Library.TMFormClass" Address Form Collection CopyValues CurrentClass CurrentORef EditRefs FormName IdFields Label1 LabelRefs MenuItem1 MenuItem3 MenuItem4 PaintBox Panel1 Panel2 ParentORef btnChooseID btnDelete btnNew btnOk btnSave lblClass mmoInterne myDatatype myPersistent pmIDs pmUtils pmiCopyBoth pmiCopyFNToClip pmiCopyFVToClip pmiCopyValues pmiCreatePiece pmiIgnoreEmpties pmiOneLineXML pmiPasteValues pmiReadList pmiXML pnlInternMsgBoard pnlMsg sbProperties mySystem ArrayKey NewParam MenuItem5 MenuItem6 pmiAddToContainer pmiGetFromContainer CloseObjects pmORefContainer pmiConfirmPaste pmiClearFieldValues pmiDataReplicator dlgPickIDFromList dlgErrorList btnLock FormIsLocked pmiCopyID miMethodXecute ErrorList miQueryXecuter miCopyClassName