PC World 1999 May/PCWorld_1999-05_cd.bin/NOVINKY/SuperMem/SM98/SM98.EXE/0/RCDATA/TFINDDLG/TFINDDLG.txt

Text File | 1999-03-17 | 6.3 KB | 302 lines

object FindDlg: TFindDlg
  Left = 280
  Top = 164
  BorderStyle = bsDialog
  Caption = 'Find file'
  ClientHeight = 294
  ClientWidth = 592
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clBlack
  Font.Height = -13
  Font.Name = 'MS Sans Serif'
  Font.Style = [fsBold]
  KeyPreview = True
  PopupMenu = PopupMenu1
  ShowHint = True
  OnClose = FormClose
  OnCreate = FormCreate
  OnKeyDown = FormKeyDown
  OnShow = FormShow
  PixelsPerInch = 120
  TextHeight = 16
  object Bevel1: TBevel
    Left = 16
    Top = 16
    Width = 441
    Height = 241
    Hint = 'Use right mouse button to display popup menu'
  end
  object Label2: TLabel
    Left = 32
    Top = 36
    Width = 81
    Height = 26
    AutoSize = False
    Caption = 'File&name:'
    FocusControl = FileEdit
    PopupMenu = PopupMenu1
    Transparent = True
  end
  object Label4: TLabel
    Left = 256
    Top = 112
    Width = 177
    Height = 25
    AutoSize = False
    Caption = 'Dri&ve:'
    FocusControl = FindDrive
    Transparent = True
  end
  object SearchLbl: TLabel
    Left = 32
    Top = 89
    Width = 377
    Height = 21
    AutoSize = False
    Caption = 'd:\sm98'
    PopupMenu = PopupMenu1
    Transparent = True
  end
  object Label3: TLabel
    Left = 32
    Top = 68
    Width = 73
    Height = 26
    AutoSize = False
    Caption = '&Directory:'
    FocusControl = FindInBox
    PopupMenu = PopupMenu1
    Transparent = True
  end
  object Zoom: TImage
    Left = 481
    Top = 209
    Width = 32
    Height = 32
    Picture.Data = {<image000.ico>}
    Visible = False
  end
  object DrawArea: TPaintBox
    Left = 473
    Top = 160
    Width = 104
    Height = 65
    Hint = 'Nothing important'
    PopupMenu = PopupMenu1
    OnPaint = DrawAreaPaint
  end
  object Folders: TImage
    Left = 529
    Top = 200
    Width = 40
    Height = 41
    Center = True
    Picture.Data = {<image001.ico>}
    Visible = False
  end
  object SubChk: TCheckBox
    Left = 256
    Top = 192
    Width = 169
    Height = 25
    Hint = 'Search or not in subfolders'
    Caption = 'Search in s&ubfolders'
    PopupMenu = PopupMenu1
    State = cbChecked
    TabOrder = 2
  end
  object FindInBox: TDirectoryListBox
    Left = 32
    Top = 112
    Width = 201
    Height = 129
    Hint = 'Change directory'
    DirLabel = SearchLbl
    ItemHeight = 16
    PopupMenu = PopupMenu1
    TabOrder = 0
  end
  object FindDrive: TDriveComboBox
    Left = 256
    Top = 137
    Width = 177
    Height = 22
    Hint = 'Change drive'
    DirList = FindInBox
    PopupMenu = PopupMenu1
    TabOrder = 1
  end
  object FindBtn: TButton
    Left = 473
    Top = 16
    Width = 104
    Height = 30
    Hint = 'Start searching'
    Caption = '&Find'
    TabOrder = 3
    OnClick = FindBtnClick
  end
  object StopBtn: TButton
    Left = 473
    Top = 48
    Width = 104
    Height = 30
    Hint = 'Stop searching'
    Cancel = True
    Caption = '&Stop'
    Enabled = False
    TabOrder = 4
    OnClick = StopBtnClick
  end
  object CloseBtn: TButton
    Left = 473
    Top = 96
    Width = 104
    Height = 30
    Hint = 'Close'
    Caption = '&Close'
    TabOrder = 5
    OnClick = CloseBtnClick
  end
  object FileEdit: TComboBox
    Left = 112
    Top = 32
    Width = 321
    Height = 24
    Hint = 'Enter file name and press Enter'
    DropDownCount = 5
    ItemHeight = 16
    TabOrder = 6
    Text = '*.*'
  end
  object StatusBar: TPanel
    Left = 0
    Top = 264
    Width = 592
    Height = 30
    Align = alBottom
    Alignment = taLeftJustify
    BevelOuter = bvLowered
    Caption = ' Click Find button to start searching.'
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clBlack
    Font.Height = -13
    Font.Name = 'MS Sans Serif'
    Font.Style = [fsBold]
    ParentFont = False
    TabOrder = 7
  end
  object IconTimer: TTimer
    Enabled = False
    Interval = 300
    OnTimer = IconTimerTimer
    Left = 460
    Top = 136
  end
  object PopupMenu1: TPopupMenu
    Left = 360
    Top = 80
    object Executablefiles1: TMenuItem
      Caption = '&Executable files'
      object dll1: TMenuItem
        Caption = '*.&dll'
        OnClick = dll1Click
      end
      object exe1: TMenuItem
        Caption = '*.&exe'
        OnClick = exe1Click
      end
      object N3: TMenuItem
        Caption = '-'
      end
      object Allofthem1: TMenuItem
        Caption = '&All of them'
        OnClick = Allofthem1Click
      end
    end
    object Graphicfiles1: TMenuItem
      Caption = '&Graphic files'
      object bmp1: TMenuItem
        Caption = '*.&bmp'
        OnClick = bmp1Click
      end
      object gif1: TMenuItem
        Caption = '*.&gif'
        OnClick = gif1Click
      end
      object jpg1: TMenuItem
        Caption = '*.&jpg'
        OnClick = jpg1Click
      end
      object N4: TMenuItem
        Caption = '-'
      end
      object Allofthem2: TMenuItem
        Caption = '&All of them'
        OnClick = Allofthem2Click
      end
    end
    object Knowledgesystemfiles1: TMenuItem
      Caption = '&Collection files'
      object kno1: TMenuItem
        Caption = '*.&kno'
        OnClick = kno1Click
      end
    end
    object Scriptfiles1: TMenuItem
      Caption = 'Scri&pt files'
      object scr1: TMenuItem
        Caption = '*.&scr'
        OnClick = scr1Click
      end
      object txt1: TMenuItem
        Caption = '*.&txt'
        OnClick = txt1Click
      end
      object N5: TMenuItem
        Caption = '-'
      end
      object Allofthem3: TMenuItem
        Caption = '&All of them'
        OnClick = Allofthem3Click
      end
    end
    object Soundfiles1: TMenuItem
      Caption = '&Sound files'
      object mid1: TMenuItem
        Caption = '*.&mid'
        OnClick = mid1Click
      end
      object rmi1: TMenuItem
        Caption = '*.&rmi'
        OnClick = rmi1Click
      end
      object wav1: TMenuItem
        Caption = '*.&wav'
        OnClick = wav1Click
      end
      object N6: TMenuItem
        Caption = '-'
      end
      object Allofthem4: TMenuItem
        Caption = '&All of them'
        OnClick = Allofthem4Click
      end
    end
    object Videofiles1: TMenuItem
      Caption = '&Video files'
      object avi1: TMenuItem
        Caption = '*.&avi'
        OnClick = avi1Click
      end
    end
    object N2: TMenuItem
      Caption = '-'
    end
    object N1: TMenuItem
      Caption = '&All files (*.*)'
      OnClick = N1Click
    end
  end
end