object FindForm: TFindForm Left = 222 Top = 121 HelpContext = 54 BorderIcons = [biSystemMenu, biMinimize] BorderStyle = bsSingle Caption = 'Find files' ClientHeight = 344 ClientWidth = 373 Font.Color = clBlack Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] PixelsPerInch = 96 Position = poScreenCenter OnClose = FormClose OnCreate = FormCreate OnDestroy = FormDestroy OnPaint = FormPaint OnShow = FormShow TextHeight = 13 object Bevel1: TBevel Left = 4 Top = 325 Width = 167 Height = 16 end object Bevel2: TBevel Left = 176 Top = 325 Width = 193 Height = 16 end object FoundLabel: TLabel Left = 12 Top = 326 Width = 153 Height = 12 AutoSize = False Caption = '0 items found' end object SelLabel: TLabel Left = 190 Top = 326 Width = 177 Height = 12 AutoSize = False Caption = '0 selected' end object Header: THeader Left = 4 Top = 137 Width = 365 Height = 20 Sections.Sections = ( #0'75'#0'Name' #0'174'#0'Location' #0'51'#0'Size' #0'58'#0'Date') TabOrder = 4 OnSized = HeaderSized end object Listbox: TListBox Left = 4 Top = 156 Width = 365 Height = 166 DragMode = dmAutomatic Enabled = False ItemHeight = 16 MultiSelect = True PopupMenu = Menu Style = lbOwnerDrawFixed TabOrder = 5 OnClick = ListboxClick OnDblClick = OpenFileClick OnDrawItem = ListboxDrawItem OnEndDrag = ListboxEndDrag OnMouseMove = ListboxMouseMove end object Notebook: TTabbedNotebook Left = 2 Top = 1 Width = 369 Height = 135 TabFont.Color = clBtnText TabFont.Height = -11 TabFont.Name = 'MS Sans Serif' TabFont.Style = [] TabOrder = 0 object TTabPage Left = 5 Top = 26 Caption = 'Name && Location' object Label1: TLabel Left = 10 Top = 12 Width = 52 Height = 13 Caption = '&Search for:' FocusControl = FileEdit end object Label2: TLabel Left = 10 Top = 42 Width = 48 Height = 13 Caption = 'Start &from:' FocusControl = StartEdit end object FileEdit: TComboBox Left = 70 Top = 10 Width = 199 Height = 20 ItemHeight = 13 TabOrder = 0 Text = '*.*' OnKeyPress = StartEditKeyPress end object StartEdit: TComboBox Left = 70 Top = 40 Width = 199 Height = 20 Hint = 'Double click to select folder' ItemHeight = 13 MaxLength = 79 ParentShowHint = False ShowHint = True TabOrder = 1 OnChange = StartEditChange OnDblClick = StartEditDblClick OnKeyPress = StartEditKeyPress end object WholeDrive: TRadioButton Left = 10 Top = 72 Width = 79 Height = 17 Caption = '&Whole drive' Checked = True TabOrder = 2 TabStop = True OnClick = WholeDriveClick end object SubFolders: TRadioButton Left = 102 Top = 72 Width = 75 Height = 17 Caption = 'S&ub folders' TabOrder = 3 end object OneFolder: TRadioButton Left = 190 Top = 72 Width = 81 Height = 17 Caption = 'S&ingle folder' TabOrder = 4 end end end object SearchBtn: TBitBtn Left = 284 Top = 34 Width = 75 Height = 27 Caption = 'Search' Default = True TabOrder = 1 OnClick = SearchBtnClick Glyph.Data = { 4E010000424D4E01000000000000760000002800000012000000120000000100 040000000000D800000000000000000000001000000010000000000000000000 BF0000BF000000BFBF00BF000000BF00BF00BFBF0000C0C0C000808080000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00777777777777 77777700000077007777777777777700000070000777777777777700000070F0 00777777777777000000770F000777777777770000007770F000777777777700 000077770F000000087777000000777770F0087778077700000077777700877F F780770000007777770877777F788700000077777707777777F7070000007777 7708777777F707000000777777087FF7777707000000777777888FF777788700 0000777777708877778077000000777777770888880777000000777777777800 087777000000777777777777777777000000} Margin = 4 Style = bsNew Spacing = -1 end object ClearBtn: TBitBtn Left = 284 Top = 64 Width = 75 Height = 27 Caption = '&Clear' TabOrder = 2 OnClick = ClearBtnClick Kind = bkAbort Margin = 4 Style = bsNew Spacing = -1 end object CloseBtn: TBitBtn Left = 284 Top = 94 Width = 75 Height = 27 TabOrder = 3 OnClick = CloseBtnClick Kind = bkClose Margin = 4 Style = bsNew Spacing = -1 IsControl = True end object Menu: TPopupMenu OnPopup = MenuPopup Left = 28 Top = 208 object OpenFile: TMenuItem Caption = '&Open' OnClick = OpenFileClick ShortCutText = 'Enter' end object OpenParent: TMenuItem Caption = 'Open &parent' OnClick = OpenParentClick ShortCutText = 'Space' end object N1: TMenuItem Caption = '-' end object Delete: TMenuItem Caption = '&Delete' OnClick = DeleteClick ShortCutText = 'Del' end end object DropServer: TDropServer OnFileDrop = DropServerFileDrop Left = 74 Top = 208 end end