PC World Komputer 1997 May/Pcwk0597.iso/delphi/tenpack.lzh/FINDDEMO.DFM/FINDDEMO.txt

Text File | 1995-06-19 | 4.7 KB | 206 lines

object DemoFindText: TDemoFindText
  Left = 135
  Top = 98
  BorderStyle = bsSingle
  Caption = 'Find Text Component'
  ClientHeight = 273
  ClientWidth = 427
  Font.Color = clWindowText
  Font.Height = -13
  Font.Name = 'System'
  Font.Style = []
  Icon.Data = {<image000.ico>}
  PixelsPerInch = 96
  Position = poScreenCenter
  Visible = True
  TextHeight = 16
  object Label1: TLabel
    Left = 17
    Top = 5
    Width = 125
    Height = 16
    Caption = 'Select file to search...'
    Font.Color = clBlack
    Font.Height = -13
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
  end
  object Label2: TLabel
    Left = 182
    Top = 59
    Width = 85
    Height = 16
    Caption = 'File to Search:'
    Font.Color = clBlack
    Font.Height = -13
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
  end
  object Label3: TLabel
    Left = 194
    Top = 96
    Width = 72
    Height = 16
    Caption = 'Text to Find:'
    Font.Color = clBlack
    Font.Height = -13
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
  end
  object Label4: TLabel
    Left = 182
    Top = 181
    Width = 82
    Height = 16
    Caption = 'Found at Pos:'
    Font.Color = clBlack
    Font.Height = -13
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
  end
  object Label5: TLabel
    Left = 177
    Top = 215
    Width = 221
    Height = 53
    AutoSize = False
    Caption =
      'The Find Text component will quickly search a file for a specifi' +
      'ed text string.'
    Font.Color = clBlack
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = [fsBold]
    ParentFont = False
  end
  object DriveComboBox1: TDriveComboBox
    Left = 16
    Top = 26
    Width = 145
    Height = 22
    DirList = DirectoryListBox1
    Font.Color = clBlack
    Font.Height = -13
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
    TabOrder = 0
  end
  object DirectoryListBox1: TDirectoryListBox
    Left = 15
    Top = 50
    Width = 145
    Height = 97
    FileList = FileListBox1
    Font.Color = clBlack
    Font.Height = -13
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ItemHeight = 16
    ParentFont = False
    TabOrder = 1
  end
  object FileListBox1: TFileListBox
    Left = 16
    Top = 152
    Width = 145
    Height = 97
    FileEdit = Edit1
    Font.Color = clBlack
    Font.Height = -13
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ItemHeight = 16
    ParentFont = False
    TabOrder = 2
  end
  object Edit1: TEdit
    Left = 272
    Top = 57
    Width = 121
    Height = 24
    Font.Color = clBlack
    Font.Height = -13
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
    TabOrder = 3
    Text = '*.*'
  end
  object Edit2: TEdit
    Left = 272
    Top = 92
    Width = 121
    Height = 24
    Font.Color = clBlack
    Font.Height = -13
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
    TabOrder = 4
  end
  object BitBtn1: TBitBtn
    Left = 272
    Top = 143
    Width = 121
    Height = 26
    Caption = '&Find Text'
    Font.Color = clBlack
    Font.Height = -13
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
    TabOrder = 5
    OnClick = BitBtn1Click
    Glyph.Data = {
      76010000424D7601000000000000760000002800000020000000100000000100
      04000000000000010000130B0000130B00000000000000000000000000000000
      800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
      FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
      333333333333333333FF33333333333330003FF3FFFFF3333777003000003333
      300077F777773F333777E00BFBFB033333337773333F7F33333FE0BFBF000333
      330077F3337773F33377E0FBFBFBF033330077F3333FF7FFF377E0BFBF000000
      333377F3337777773F3FE0FBFBFBFBFB039977F33FFFFFFF7377E0BF00000000
      339977FF777777773377000BFB03333333337773FF733333333F333000333333
      3300333777333333337733333333333333003333333333333377333333333333
      333333333333333333FF33333333333330003333333333333777333333333333
      3000333333333333377733333333333333333333333333333333}
    NumGlyphs = 2
  end
  object Edit3: TEdit
    Left = 272
    Top = 178
    Width = 121
    Height = 24
    Font.Color = clBlack
    Font.Height = -13
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
    TabOrder = 6
  end
  object CheckBox1: TCheckBox
    Left = 272
    Top = 121
    Width = 120
    Height = 17
    Caption = 'Case sensitive'
    Font.Color = clBlack
    Font.Height = -13
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
    TabOrder = 7
    OnClick = CheckBox1Click
  end
  object FindText1: TFindText
    CaseSensitive = False
    Left = 183
    Top = 13
  end
end