0 0 serial 0 KeyCodesCNTs STRING 0 Default %Library.TMFormClass 0 %TMBevel 0 0 "" 0 0 0 0 0 %Library.String 0 0 0 0 0 0 0 0 %Library.String 0 0 "" 0 0 0 0 0 %Library.String 0 0 "" 0 0 0 0 0 %Library.TMForm 0 0 "" 0 0 0 0 0 %TMMainMenu 0 0 "" 0 0 0 0 0 %TMMenuItem 0 0 "" 0 0 0 0 0 %Library.String 0 0 0 0 0 0 0 0 %TMMenuItem 0 0 "" 0 0 0 0 0 %TMMenuItem 0 0 "" 0 0 0 0 0 %TMMenuItem 0 0 "" 0 0 0 0 0 %TMMenuItem 0 0 "" 0 0 0 0 0 %TMMenuItem 0 0 "" 0 0 0 0 0 %TMMenuItem 0 0 "" 0 0 0 0 0 %TMListView 0 0 "" 0 0 0 0 0 %TMMenuItem 0 0 "" 0 0 0 0 0 %TMMenuItem 0 0 "" 0 0 0 0 0 %TMMenuItem 0 0 "" 0 0 0 0 0 %TMMenuItem 0 0 "" 0 0 0 0 0 %TMMenuItem 0 0 "" 0 0 0 0 0 %TMMenuItem 0 0 "" 0 0 0 0 0 %TMMenuItem 0 0 "" 0 0 0 0 0 %TMMenuItem 0 0 "" 0 0 0 0 0 %TMMenuItem 0 0 "" 0 0 0 0 0 %TMMenuItem 0 0 "" 0 0 0 0 0 0 0 code initvalue:%String 0 %Status 0 0 0 code Value:%String 0 %Library.Status 0 0) ..lvElements.Selected=..lvElements.Items.GetItems(0) Do ..iCOMPUPDATECaption() Quit $$$OK ]]> 0 0 code 0 0 ; 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 ]]> 0 0 code Args:%String 0 0 0 0 code Args:%String 0 0 0 0 code 0 0 0 0 code initvalue:%String 0 0 0 0 code initvalue:%String 0 %Library.Status 0 0 0 code Value:%String 0 %Library.Status 0 0 0 code 0 0 0 0 code Key:%String 0 0 0 0 code 0 0 0 0 code Selected:%String="True" 0 0 0 0 code 0 0 0 0 code Args:%String 0 0 0 0 code Args:%String 0 0 0 0 code Args:%String 0 0 0 0 code Args:%String 0 0 0 0 code Args:%String 0 0 0 0 code Args:%String 0 0 0 0 code Args:%String 0 0 ..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 ]]> 0 0 code Args:%String 0 0 0 0 code Args:%String 0 0 0 0 code Args:%String 0 0 0 0 code Args:%String 0 0 0 0 code Args:%String 0 0 %Library.CacheSerialState list 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