rsvk/Archiver Demo2/Main.dfm

205 lines
4.2 KiB
Plaintext

object MainForm: TMainForm
Left = 261
Top = 106
BorderStyle = bsDialog
Caption = 'reSource Demo 2'
ClientHeight = 394
ClientWidth = 443
Color = clBtnFace
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
OldCreateOrder = False
PixelsPerInch = 96
TextHeight = 13
object Label1: TLabel
Left = 8
Top = 8
Width = 335
Height = 13
Caption =
'This demo shows the use of CompressToFile and DecompressFromFile' +
'.'
end
object Label2: TLabel
Left = 8
Top = 24
Width = 312
Height = 13
Caption =
'These procedures compress one file to it'#39's corresponding archiv' +
'e.'
end
object Label3: TLabel
Left = 29
Top = 59
Width = 44
Height = 13
Caption = 'File Path:'
FocusControl = SourceFileEdit
end
object Label4: TLabel
Left = 8
Top = 81
Width = 64
Height = 13
Caption = 'Archive Path:'
FocusControl = ArchiveFileEdit
end
object Label5: TLabel
Left = 148
Top = 374
Width = 131
Height = 18
Caption = 'reSource Demo 2'
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -16
Font.Name = 'Arial'
Font.Style = [fsBold, fsItalic]
ParentFont = False
end
object Bevel1: TBevel
Left = 0
Top = 155
Width = 441
Height = 9
Shape = bsBottomLine
end
object Label6: TLabel
Left = 8
Top = 218
Width = 64
Height = 13
Caption = 'Archive Path:'
FocusControl = DecompressArchiveEdit
end
object Label7: TLabel
Left = 8
Top = 179
Width = 106
Height = 13
Caption = 'Name of file to extract:'
end
object Label8: TLabel
Left = 264
Top = 172
Width = 157
Height = 13
Caption = '(The file must exist in the archive)'
end
object Label9: TLabel
Left = 8
Top = 245
Width = 72
Height = 13
Caption = 'Destination Dir:'
end
object Label10: TLabel
Left = 264
Top = 188
Width = 143
Height = 13
Caption = 'Leave blank to extract all files.'
end
object CompressBtn: TButton
Left = 56
Top = 120
Width = 345
Height = 33
Caption = 'Compress File to Archive'
TabOrder = 4
OnClick = CompressBtnClick
end
object DecompressBtn: TButton
Left = 56
Top = 337
Width = 345
Height = 33
Caption = 'Decompress File From Archive'
TabOrder = 9
OnClick = DecompressBtnClick
end
object SourceFileEdit: TEdit
Left = 80
Top = 54
Width = 321
Height = 21
TabOrder = 0
end
object ArchiveFileEdit: TEdit
Left = 80
Top = 78
Width = 321
Height = 21
TabOrder = 2
end
object BrowseSourceBtn: TButton
Left = 408
Top = 55
Width = 25
Height = 21
Caption = '...'
TabOrder = 1
OnClick = BrowseSourceBtnClick
end
object BrowseArchiveBtn: TButton
Left = 408
Top = 79
Width = 25
Height = 21
Caption = '...'
TabOrder = 3
OnClick = BrowseArchiveBtnClick
end
object DecompressArchiveEdit: TEdit
Left = 88
Top = 215
Width = 313
Height = 21
TabOrder = 6
end
object BrowseBtn2: TButton
Left = 408
Top = 216
Width = 25
Height = 21
Caption = '...'
TabOrder = 7
OnClick = BrowseBtn2Click
end
object ExtractFileNameEdit: TEdit
Left = 124
Top = 175
Width = 133
Height = 21
TabOrder = 5
end
object DirListBox: TDirectoryListBox
Left = 89
Top = 245
Width = 169
Height = 81
ItemHeight = 16
TabOrder = 8
end
object SaveDialog1: TSaveDialog
Filter = 'reSource Archive (*.rs)|*.rs'
Options = [ofHideReadOnly, ofPathMustExist, ofFileMustExist, ofEnableSizing]
Title = 'The File To Compress'
Left = 408
Top = 104
end
object OpenDialog1: TOpenDialog
Title = 'Select Archive File. Type a new name to Create a new Archive.'
Left = 400
Top = 24
end
object Resource1: TResource
Left = 8
Top = 104
end
end