PC World Komputer 1998 April A/Pcwk4a98.iso/PROGRAM/DELPHI16/Calmira/Src/SRC/FILEFIND.DFM/FILEFIND.txt

Text File | 1997-02-17 | 6KB | 245 lines

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