serial KeyCodesCNTs Default %Library.TMFormClass 59949,40951 59949,40951 %Library.Boolean 0 %Library.TMTreeNode %TMBevel %Library.String %Library.String %Library.String %Library.String %Library.String %Library.TMForm %TMMainMenu %TMMenuItem %Library.List %Library.String %TMMenuItem %TMMenuItem %TMMenuItem %TMMenuItem %TMMenuItem %TMMenuItem %TMListView %TMMenuItem %TMMenuItem %TMMenuItem %TMMenuItem %TMMenuItem %TMMenuItem %TMMenuItem %TMMenuItem %TMMenuItem %TMMenuItem initvalue:%String cache 0 %Status document literal cache 0 document literal ; Font.Charset = DEFAULT_CHARSET ; Font.Color = clWindowText ; Font.Height = -13 ; Font.Name = 'MS Sans Serif' ; Font.Style = [] ; HideSelection = False ; HotTrackStyles = [] ; MultiSelect = True ; ReadOnly = True ; RowSelect = True ; ParentFont = False ; TabOrder = 0 ; ViewStyle = vsReport ; OnDblClick = lvElementsDblClick ; OnKeyDown = lvElementsKeyDown ; end ; object MainMenu: CMainMenu ; Left = 15 ; Top = 34 ; object hmiFile: TMenuItem ; Caption = '&File' ; object miSaveParent: TMenuItem ; Caption = '&Save parent' ; Enabled = False ; OnClick = miSaveParentClick ; end ; object MenuItem6: TMenuItem ; Caption = '-' ; end ; object miSaveAndClose: TMenuItem ; Caption = 'Save &and close' ; OnClick = miSaveAndCloseClick ; end ; object miExit: TMenuItem ; Caption = '&Close' ; OnClick = miExitClick ; end ; end ; object hmiCreate: TMenuItem ; Caption = '&Create' ; object miNewElement: TMenuItem ; Caption = '&New element...' ; ShortCut = 16462 ; OnClick = miNewElementClick ; end ; end ; object hmiRemove: TMenuItem ; Caption = '&Remove' ; object miRemove: TMenuItem ; Caption = '&Remove element...' ; ShortCut = 46 ; OnClick = miRemoveClick ; end ; object miClear: TMenuItem ; Caption = '&Clear list' ; ShortCut = 16472 ; OnClick = miClearClick ; end ; end ; object hmiChange: TMenuItem ; Caption = 'C&hange' ; object miChangeElement: TMenuItem ; Caption = '&Change element...' ; OnClick = miChangeElementClick ; end ; end ; object hmiView: TMenuItem ; Caption = '&View' ; object miRefresh: TMenuItem ; Caption = '&Refresh' ; ShortCut = 116 ; OnClick = miRefreshClick ; end ; end ; object hmiFind: TMenuItem ; Caption = '&Find' ; object miFindElement: TMenuItem ; Caption = '&Find element' ; ShortCut = 16454 ; OnClick = miFindElementClick ; end ; object miFindNext: TMenuItem ; Caption = 'Find &next...' ; ShortCut = 114 ; OnClick = miFindNextClick ; end ; end ; end ;end ]]> Args:%String cache 0 document literal Args:%String cache 0 document literal cache 0 document literal Value:%String cache 0 %Library.Status document literal 0) ..lvElements.Selected=..lvElements.Items.GetItems(0) Quit $$$OK ]]> Value:%String cache 0 %Library.Status document literal Event:%Library.String,Args:%Library.String="",Parameter:%Library.String cache 0 document literal initvalue:%String cache 0 MApplication document literal cache 0 document literal initvalue:%String cache 0 %Library.Status document literal Caption:%Library.String="" cache 0 document literal Key:%String cache 0 document literal cache 0 document literal Selected:%String="True" 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 Args:%String cache 0 document literal Args:%String cache 0 document literal ..FindKey) //(tmpItem.Caption'>..FindKey) . If $ZCVT(tmpItem.SubItems.GetStrings(0),"U")[Element Do .. Do ..iCOMPSELECTlvElements("False") .. Set ..lvElements.Selected=tmpItem .. Set tmpItem.Focused="True" .. Set Found=1 .. Set ..FindKey=Loop //tmpItem.Caption If 'Found Do . Do MApplication.MessageBox("End of search.","Object Spy",$$$MBICONINFORMATION) ;End of user code s Args=$lb(Sender) q ]]> 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 ReleaseProperties:%Library.Boolean=0 cache 0 %Library.Boolean document literal cache 0 %Library.Boolean document literal cache 0 %Library.Boolean document literal cache 0 %Library.Boolean document literal OpenFirstInMe:%Library.Boolean=0 cache 0 %Library.Boolean document literal ParentORef,CurrentORef:%Library.String cache 0 %Library.Boolean document literal cache 0 %Library.Boolean document literal %Library.CacheSerialState list "%Library.TMFormClass" Address Form MainMenu MenuItem1 MenuItem2 MenuItem3 MenuItem4 hmiCreate hmiFind hmiRemove hmiView miFindNext miInsertElement miInsertList miInsertListOrdered miNewElement miRefresh miSearchElement Bevel1 hmiExit miExit miFindElement miClear miRemove ListView1 CurrentORef lvElements FindKey FindElement hmiChange miChangeElement miCopyList miInsertElementOrdered miSelectAll MenuItem6 ParentORef hmiFile miSaveParent miSaveAndClose AssocNode FCurrentORef FParentORef ArrayIsModified OnActivateMDI OnCloseMDI FClassName