home *** CD-ROM | disk | FTP | other *** search
- object frmSearchExts: TfrmSearchExts
- Left = 219
- Top = 406
- BorderStyle = bsDialog
- Caption = 'Search Menu'
- ClientHeight = 285
- ClientWidth = 368
- Color = clBtnFace
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clWindowText
- Font.Height = -11
- Font.Name = 'Tahoma'
- Font.Style = []
- OldCreateOrder = False
- Position = poScreenCenter
- Scaled = False
- OnCreate = FormCreate
- OnDestroy = FormDestroy
- PixelsPerInch = 96
- TextHeight = 13
- object imgSearch: TImage
- Left = 12
- Top = 13
- Width = 32
- Height = 32
- AutoSize = True
- end
- object Label13: TLabel
- Left = 51
- Top = 13
- Width = 308
- Height = 28
- AutoSize = False
- Caption =
- 'Specify the items that you want to have displayed in the Search ' +
- 'menu here.'
- Transparent = True
- WordWrap = True
- end
- object Bevel1: TBevel
- Left = 10
- Top = 240
- Width = 344
- Height = 17
- Shape = bsTopLine
- end
- object lvSearchExts: TListView
- Left = 51
- Top = 47
- Width = 304
- Height = 150
- HelpContext = 2059
- Columns = <
- item
- Width = 240
- end>
- HideSelection = False
- PopupMenu = mnuSearch
- ShowColumnHeaders = False
- TabOrder = 0
- ViewStyle = vsReport
- OnContextPopup = lvSearchExtsContextPopup
- OnEdited = lvSearchExtsEdited
- end
- object btnDeleteSearchExt: TButton
- Left = 138
- Top = 207
- Width = 81
- Height = 24
- HelpContext = 29
- Action = actSearchDelete
- TabOrder = 1
- end
- object btnRenameSearchExt: TButton
- Left = 50
- Top = 207
- Width = 81
- Height = 24
- Action = actSearchRename
- TabOrder = 2
- end
- object btnClose: TButton
- Left = 280
- Top = 250
- Width = 75
- Height = 24
- HelpContext = 32
- Caption = 'Close'
- TabOrder = 3
- OnClick = btnCloseClick
- end
- object ActionList1: TActionList
- Left = 16
- Top = 248
- object actSearchDelete: TAction
- Caption = '&Delete'
- OnExecute = actSearchDeleteExecute
- OnUpdate = actSearchDeleteUpdate
- end
- object actSearchRename: TAction
- Caption = '&Rename'
- OnExecute = actSearchRenameExecute
- OnUpdate = actSearchRenameUpdate
- end
- end
- object mnuSearch: TPopupMenu
- Left = 52
- Top = 248
- object mnSearchRename: TMenuItem
- Action = actSearchRename
- end
- object mnSearchDel: TMenuItem
- Action = actSearchDelete
- end
- object N1: TMenuItem
- Caption = '-'
- end
- object mnDirectHelpSearch: TMenuItem
- Caption = '&What'#39's This?'
- OnClick = mnDirectHelpSearchClick
- end
- end
- end
-