home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
PC World Komputer 1999 January
/
pcwk_01_1999.iso
/
Top100sh
/
Zip
/
Arcpek95
/
ARCPEEK.EXE
/
0
/
RCDATA
/
TARCPEEKWINDOW
/
TARCPEEKWINDOW.txt
< prev
Wrap
Text File
|
1998-02-23
|
3KB
|
129 lines
object ArcPeekWindow: TArcPeekWindow
Left = 191
Top = 71
Cursor = crArrow
HorzScrollBar.Visible = False
VertScrollBar.Visible = False
BorderIcons = [biSystemMenu, biMinimize]
BorderStyle = bsSingle
Caption = 'Archive Peek'
ClientHeight = 228
ClientWidth = 211
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = 'MS Sans Serif'
Font.Style = []
Icon.Data = {<image000.ico>}
Menu = MainMenu1
Position = poScreenCenter
OnClose = FormClose
OnCreate = FormCreate
PixelsPerInch = 96
TextHeight = 13
object Label2: TLabel
Left = 8
Top = 160
Width = 74
Height = 13
Caption = 'Files to look for:'
end
object Label1: TLabel
Left = 8
Top = 0
Width = 74
Height = 13
Caption = 'Look for files in:'
end
object DirectoryListBox1: TDirectoryListBox
Left = 8
Top = 16
Width = 193
Height = 113
Hint = 'Choose here the directory you want Archive Peek to search in'
ItemHeight = 16
TabOrder = 0
end
object Files: TEdit
Left = 7
Top = 175
Width = 194
Height = 21
TabOrder = 2
OnChange = FilesChange
OnKeyPress = FilesKeyPress
end
object BeginSearch: TButton
Left = 8
Top = 199
Width = 73
Height = 25
Hint = 'Click here to start your search'
Caption = 'Begin search'
Enabled = False
TabOrder = 3
OnClick = BeginSearchClick
end
object DriveComboBox1: TDriveComboBox
Left = 8
Top = 136
Width = 193
Height = 19
Hint = 'Choose here the drive you want Archive Peek to search in'
TabOrder = 1
OnChange = DriveComboBox1Change
end
object ShowResults: TButton
Left = 88
Top = 199
Width = 113
Height = 25
Caption = 'Show Results Window'
TabOrder = 4
Visible = False
OnClick = ShowResultsClick
end
object MainMenu1: TMainMenu
Left = 152
Top = 96
object Options1: TMenuItem
Caption = '&Options'
ShortCut = 0
object Casesensitive1: TMenuItem
Caption = '&Case sensitive'
ShortCut = 0
OnClick = Casesensitive1Click
end
object Includesubfolders1: TMenuItem
Caption = 'Include &subfolders'
ShortCut = 0
OnClick = Includesubfolders1Click
end
object Displaycountonly1: TMenuItem
Caption = 'Display count &only'
ShortCut = 0
OnClick = Displaycountonly1Click
end
object Advancedoptions1: TMenuItem
Caption = '&Advanced options...'
ShortCut = 0
OnClick = Advancedoptions1Click
end
end
object Help1: TMenuItem
Caption = '&Help'
ShortCut = 0
object Contents1: TMenuItem
Caption = '&Contents'
ShortCut = 0
OnClick = Contents1Click
end
object About1: TMenuItem
Caption = '&About Archive Peek...'
ShortCut = 0
OnClick = About1Click
end
end
end
end