serial %AppsArrayCnts Default %Library.TMFormClass %Library.TMForm %TMGroupBox %TMLabel %TMLabel %TMLabel %Library.String 1 %TMButton %TMButton %TMButton %TMButton %TMButton %TMButton %TMListView %TMRadioButton %TMRadioButton %TMEdit %TMEdit %TMEdit initvalue:%String cache 0 %Status document literal cache 0 document literal ; GridLines = True ; HideSelection = False ; HotTrackStyles = [] ; RowSelect = True ; TabOrder = 0 ; ViewStyle = vsReport ; OnMouseDown = lvAppsMouseDown ; end ; object btnClose: CButton ; Left = 696 ; Top = 341 ; Width = 75 ; Height = 22 ; Anchors = [akLeft, akBottom] ; Caption = 'Sluiten' ; TabOrder = 1 ; OnClick = btnCloseClick ; end ; object GroupBox1: CGroupBox ; Left = 13 ; Top = 290 ; Width = 673 ; Height = 73 ; Anchors = [akLeft, akBottom] ; Caption = ' Add application ' ; TabOrder = 2 ; object Label1: CLabel ; Left = 20 ; Top = 20 ; Width = 112 ; Height = 13 ; Caption = 'Application/Form name:' ; end ; object Label2: CLabel ; Left = 324 ; Top = 20 ; Width = 22 ; Height = 13 ; Caption = 'Sub:' ; end ; object Label3: CLabel ; Left = 420 ; Top = 20 ; Width = 34 ; Height = 13 ; Caption = 'Owner:' ; end ; object txtAppName: CEdit ; Left = 19 ; Top = 38 ; Width = 257 ; Height = 21 ; TabOrder = 0 ; end ; object txtSub: CEdit ; Left = 323 ; Top = 38 ; Width = 57 ; Height = 21 ; TabOrder = 1 ; Text = '*' ; end ; object txtOwnerIP: CEdit ; Left = 499 ; Top = 38 ; Width = 57 ; Height = 21 ; TabOrder = 2 ; end ; object rbOwnerAll: CRadioButton ; Left = 420 ; Top = 40 ; Width = 41 ; Height = 17 ; Caption = 'All' ; Checked = True ; TabOrder = 3 ; TabStop = True ; end ; object rbOwnerIP: CRadioButton ; Left = 460 ; Top = 40 ; Width = 33 ; Height = 17 ; Caption = 'IP' ; TabOrder = 4 ; end ; object btnAdd: CButton ; Left = 582 ; Top = 16 ; Width = 75 ; Height = 25 ; Anchors = [akLeft, akBottom] ; Caption = 'Add' ; TabOrder = 5 ; OnClick = btnAddClick ; end ; object btnDelete: CButton ; Left = 582 ; Top = 40 ; Width = 75 ; Height = 25 ; Anchors = [akLeft, akBottom] ; Caption = 'Delete' ; TabOrder = 6 ; OnClick = btnDeleteClick ; end ; object btnAppBrowse: CButton ; Left = 275 ; Top = 38 ; Width = 21 ; Height = 21 ; Caption = '...' ; Font.Charset = ANSI_CHARSET ; Font.Color = clWindowText ; Font.Height = -11 ; Font.Name = 'Arial Black' ; Font.Style = [] ; ParentFont = False ; TabOrder = 7 ; OnClick = btnAppBrowseClick ; end ; object btnBrowseIP: CButton ; Left = 555 ; Top = 38 ; Width = 21 ; Height = 21 ; Caption = '...' ; Font.Charset = ANSI_CHARSET ; Font.Color = clWindowText ; Font.Height = -11 ; Font.Name = 'Arial Black' ; Font.Style = [] ; ParentFont = False ; TabOrder = 8 ; end ; end ; object btnRefresh: CButton ; Left = 696 ; Top = 293 ; Width = 75 ; Height = 22 ; Anchors = [akLeft, akBottom] ; Caption = 'Refresh' ; TabOrder = 3 ; OnClick = btnRefreshClick ; end ;end ]]> Args:%String cache 0 document literal cache 0 document literal IP:%Library.String cache 0 %Library.String document literal initvalue:%String cache 0 MApplication document literal initvalue:%String cache 0 %Library.Status document literal Args:%String cache 0 document literal Args:%String cache 0 document literal Args:%String cache 0 document literal Args:%String cache 0 document literal Args:%String cache 0 document literal Args:%String cache 0 document literal cache 0 document literal Active: " _ ..GetComputerNameViaIP(IP) .... For Set IP=$O(^Apps($$$aaIndex,$$$aiViaClassName,App,IP)) Quit:(IP="") Do ..... Set CU=CU_", "_..GetComputerNameViaIP(IP) ... Set tmpItem=..lvApps.Items.AddItem(ShowApp,,,$LB(ShowSubApp,"ALL",CU,$NAME(^UI.Settings(App,SubApp,"Enable","ALL")))) ... Set tmpItem.Checked=$$BoolToStr^vhLib(^UI.Settings(App,SubApp,"Enable","ALL")) ... Set (ShowApp,ShowSubApp)=" ..." .. For Set Owner=$O(^UI.Settings(App,SubApp,"Enable","IP",Owner)) Quit:(Owner="") Do ... Set OwnerIP="192.168.1."_Owner ... Set CU=$S($D(^Apps($$$aaIndex,$$$aiViaClassName,App,OwnerIP)):"-> Active",1:"") ... Set tmpItem=..lvApps.Items.AddItem(ShowApp,,,$LB(ShowSubApp,..GetComputerNameViaIP(OwnerIP),CU,$NAME(^UI.Settings(App,SubApp,"Enable","IP",Owner)))) ... Set tmpItem.Checked=$$BoolToStr^vhLib(^UI.Settings(App,SubApp,"Enable","IP",Owner)) ... Set (ShowApp,ShowSubApp)=" ..." ; --------- END UPDATE ------------- Do ..lvApps.Items.EndUpdate() ; ---------------------------------- Quit ]]> Args:%String cache 0 document literal %Library.CacheSerialState "%Library.TMFormClass" Address Form lvApps btnClose btnUpdate GroupBox1 Label1 Label2 Label3 btnAdd btnDelete rbOwnerAll rbOwnerIP txtAppName txtOwnerIP txtSub btnRefresh tvApps btnAppBrowse btnBrowseIP