205 lines
4.2 KiB
Plaintext
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
|