home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
PC World Komputer 1997 May
/
Pcwk0597.iso
/
delphi
/
tenpack.lzh
/
FINDDEMO.DFM
/
FINDDEMO.txt
next >
Wrap
Text File
|
1995-06-19
|
5KB
|
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