2013-04-03 11:06:37 +00:00
|
|
|
object Form1: TForm1
|
|
|
|
Left = 241
|
2013-04-03 11:13:44 +00:00
|
|
|
Height = 357
|
2013-04-03 11:06:37 +00:00
|
|
|
Top = 161
|
|
|
|
Width = 320
|
|
|
|
Caption = 'GZ Uncompressor'
|
2013-04-03 11:13:44 +00:00
|
|
|
ClientHeight = 357
|
2013-04-03 11:06:37 +00:00
|
|
|
ClientWidth = 320
|
|
|
|
LCLVersion = '1.1'
|
|
|
|
object editFileName: TFileNameEdit
|
|
|
|
Left = 8
|
|
|
|
Height = 23
|
|
|
|
Top = 32
|
|
|
|
Width = 264
|
|
|
|
FileName = 'D:\lazarusccr\applications\fpvviewer\examples_files\svgz\tassu_20130329_b.svgz'
|
|
|
|
FilterIndex = 0
|
|
|
|
HideDirectories = False
|
|
|
|
ButtonWidth = 23
|
|
|
|
NumGlyphs = 1
|
|
|
|
MaxLength = 0
|
|
|
|
TabOrder = 0
|
|
|
|
end
|
|
|
|
object Button1: TButton
|
|
|
|
Left = 16
|
|
|
|
Height = 25
|
2013-04-03 12:12:34 +00:00
|
|
|
Top = 64
|
2013-04-03 11:06:37 +00:00
|
|
|
Width = 288
|
|
|
|
Caption = 'Uncompress gz'
|
|
|
|
OnClick = Button1Click
|
|
|
|
TabOrder = 1
|
|
|
|
end
|
|
|
|
object Label1: TLabel
|
|
|
|
Left = 8
|
|
|
|
Height = 15
|
|
|
|
Top = 15
|
|
|
|
Width = 132
|
|
|
|
Caption = 'File to be uncompressed:'
|
|
|
|
ParentColor = False
|
|
|
|
end
|
2013-04-03 12:12:34 +00:00
|
|
|
object buttonUncompressAndShow: TButton
|
2013-04-03 11:13:44 +00:00
|
|
|
Left = 16
|
|
|
|
Height = 25
|
2013-04-03 12:12:34 +00:00
|
|
|
Top = 96
|
2013-04-03 11:13:44 +00:00
|
|
|
Width = 288
|
|
|
|
Caption = 'Uncompress to a memory stream and show it'
|
2013-04-03 12:12:34 +00:00
|
|
|
OnClick = buttonUncompressAndShowClick
|
2013-04-03 11:13:44 +00:00
|
|
|
TabOrder = 2
|
|
|
|
end
|
|
|
|
object memoOutput: TMemo
|
|
|
|
AnchorSideRight.Control = Owner
|
|
|
|
AnchorSideRight.Side = asrBottom
|
|
|
|
AnchorSideBottom.Control = Owner
|
|
|
|
AnchorSideBottom.Side = asrBottom
|
|
|
|
Left = 16
|
2013-04-03 12:12:34 +00:00
|
|
|
Height = 219
|
|
|
|
Top = 128
|
2013-04-03 11:13:44 +00:00
|
|
|
Width = 294
|
|
|
|
Anchors = [akTop, akLeft, akRight, akBottom]
|
|
|
|
BorderSpacing.Right = 10
|
|
|
|
BorderSpacing.Bottom = 10
|
|
|
|
Lines.Strings = (
|
|
|
|
'memoOutput'
|
|
|
|
)
|
|
|
|
TabOrder = 3
|
|
|
|
end
|
2013-04-03 11:06:37 +00:00
|
|
|
end
|