home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Chip 1999 Extra
/
Chip_Extra_1999.iso
/
share
/
aktuell
/
windiz
/
windiz12.exe
/
WinDIZ.exe
/
0
/
RCDATA
/
TMAIN
/
TMAIN.txt
< prev
Wrap
Text File
|
1998-07-30
|
17KB
|
505 lines
object Main: TMain
Left = 92
Top = 158
BorderIcons = [biSystemMenu, biMinimize]
BorderStyle = bsSingle
Caption = 'WinDIZ by NG Soft, 1998'
ClientHeight = 312
ClientWidth = 626
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
Icon.Data = {<image000.ico>}
Position = poScreenCenter
OnCreate = FormCreate
PixelsPerInch = 96
TextHeight = 13
object ALabel1: TALabel
Left = 1
Top = 7
Width = 52
Height = 252
AutoSize = False
Caption = 'Win D I Z'
Color = clBtnFace
Font.Charset = ANSI_CHARSET
Font.Color = clYellow
Font.Height = -48
Font.Name = 'Comic Sans MS'
Font.Style = [fsBold]
ParentColor = False
ParentFont = False
Angle = 900
end
object Panel1: TPanel
Left = 0
Top = 266
Width = 626
Height = 46
Align = alBottom
BevelOuter = bvLowered
TabOrder = 0
object B_View: TSpeedButton
Left = 196
Top = 2
Width = 66
Height = 41
Hint = 'Manual view file info'
AllowAllUp = True
Caption = 'View'
Flat = True
Font.Charset = DEFAULT_CHARSET
Font.Color = clBlue
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
Glyph.Data = {
76010000424D7601000000000000760000002800000020000000100000000100
04000000000000010000120B0000120B00001000000000000000000000000000
800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
3333333333333333333333333333333333333FFF333333333333000333333333
3333777FFF3FFFFF33330B000300000333337F777F777773F333000E00BFBFB0
3333777F773333F7F333000E0BFBF0003333777F7F3337773F33000E0FBFBFBF
0333777F7F3333FF7FFF000E0BFBF0000003777F7F3337777773000E0FBFBFBF
BFB0777F7F33FFFFFFF7000E0BF000000003777F7FF777777773000000BFB033
33337777773FF733333333333300033333333333337773333333333333333333
3333333333333333333333333333333333333333333333333333333333333333
3333333333333333333333333333333333333333333333333333}
Layout = blGlyphTop
NumGlyphs = 2
ParentFont = False
ParentShowHint = False
ShowHint = True
OnClick = B_ViewClick
end
object B_Quit: TSpeedButton
Left = 559
Top = 2
Width = 64
Height = 42
Hint = 'Exit program'
Caption = 'Quit'
Flat = True
Font.Charset = DEFAULT_CHARSET
Font.Color = clBlue
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
Glyph.Data = {
76010000424D7601000000000000760000002800000020000000100000000100
04000000000000010000120B0000120B00001000000000000000000000000000
800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00330000000000
03333377777777777F333301BBBBBBBB033333773F3333337F3333011BBBBBBB
0333337F73F333337F33330111BBBBBB0333337F373F33337F333301110BBBBB
0333337F337F33337F333301110BBBBB0333337F337F33337F333301110BBBBB
0333337F337F33337F333301110BBBBB0333337F337F33337F333301110BBBBB
0333337F337F33337F333301110BBBBB0333337F337FF3337F33330111B0BBBB
0333337F337733337F333301110BBBBB0333337F337F33337F333301110BBBBB
0333337F3F7F33337F333301E10BBBBB0333337F7F7F33337F333301EE0BBBBB
0333337F777FFFFF7F3333000000000003333377777777777333}
Layout = blGlyphTop
NumGlyphs = 2
ParentFont = False
ParentShowHint = False
ShowHint = True
OnClick = B_QuitClick
end
object B_About: TSpeedButton
Left = 440
Top = 2
Width = 58
Height = 42
Hint = 'About the program'
Caption = 'About'
Flat = True
Font.Charset = DEFAULT_CHARSET
Font.Color = clBlue
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
Glyph.Data = {
76010000424D7601000000000000760000002800000020000000100000000100
04000000000000010000120B0000120B00001000000000000000000000000000
800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF0033BBBBBBBBBB
BB33337777777777777F33BB00BBBBBBBB33337F77333333F37F33BB0BBBBBB0
BB33337F73F33337FF7F33BBB0BBBB000B33337F37FF3377737F33BBB00BB00B
BB33337F377F3773337F33BBBB0B00BBBB33337F337F7733337F33BBBB000BBB
BB33337F33777F33337F33EEEE000EEEEE33337F3F777FFF337F33EE0E80000E
EE33337F73F77773337F33EEE0800EEEEE33337F37377F33337F33EEEE000EEE
EE33337F33777F33337F33EEEEE00EEEEE33337F33377FF3337F33EEEEEE00EE
EE33337F333377F3337F33EEEEEE00EEEE33337F33337733337F33EEEEEEEEEE
EE33337FFFFFFFFFFF7F33EEEEEEEEEEEE333377777777777773}
Layout = blGlyphTop
NumGlyphs = 2
ParentFont = False
ParentShowHint = False
ShowHint = True
OnClick = B_AboutClick
end
object B_Help: TSpeedButton
Left = 500
Top = 2
Width = 58
Height = 42
Hint = 'Help & info'
Caption = 'Help'
Flat = True
Font.Charset = DEFAULT_CHARSET
Font.Color = clBlue
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
Glyph.Data = {
76010000424D7601000000000000760000002800000020000000100000000100
04000000000000010000120B0000120B00001000000000000000000000000000
800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
3333333333FFFFF3333333333F797F3333333333F737373FF333333BFB999BFB
33333337737773773F3333BFBF797FBFB33333733337333373F33BFBFBFBFBFB
FB3337F33333F33337F33FBFBFB9BFBFBF3337333337F333373FFBFBFBF97BFB
FBF37F333337FF33337FBFBFBFB99FBFBFB37F3333377FF3337FFBFBFBFB99FB
FBF37F33333377FF337FBFBF77BF799FBFB37F333FF3377F337FFBFB99FB799B
FBF373F377F3377F33733FBF997F799FBF3337F377FFF77337F33BFBF99999FB
FB33373F37777733373333BFBF999FBFB3333373FF77733F7333333BFBFBFBFB
3333333773FFFF77333333333FBFBF3333333333377777333333}
Layout = blGlyphTop
NumGlyphs = 2
ParentFont = False
ParentShowHint = False
ShowHint = True
OnClick = B_HelpClick
end
object B_Preview: TSpeedButton
Left = 130
Top = 2
Width = 65
Height = 41
Hint = 'Auto view on/off'
AllowAllUp = True
GroupIndex = 1
Caption = 'Auto View'
Flat = True
Font.Charset = DEFAULT_CHARSET
Font.Color = clBlue
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
Glyph.Data = {
76010000424D7601000000000000760000002800000020000000100000000100
04000000000000010000120B0000120B00001000000000000000000000000000
800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333300333
33333333333773FF333333333330F0033333333333373773FF333333330FFFF0
03333333337F333773FF3333330FFFFFF003333333733FF33773333330FF00FF
FF80333337F3773F3337333330FFFF0FFFF03FFFF7FFF3733F3700000000FFFF
0FF0777777773FF373370000000000FFFFF07FFFFFF377FFF3370CCCCC000000
FF037777773337773F7300CCC000003300307F77733337F37737000C00000033
33307F373333F7F333370000007B703333307FFFF337F7F33337099900BBB033
33307777F37777FF33370999007B700333037777F3373773FF73099900000030
00337777FFFFF7F7773300000000003333337777777777333333}
Layout = blGlyphTop
NumGlyphs = 2
ParentFont = False
ParentShowHint = False
ShowHint = True
OnClick = B_PreviewClick
end
object B_DIZ: TSpeedButton
Left = 66
Top = 4
Width = 61
Height = 20
Hint = 'Search FILE_ID.DIZ'
GroupIndex = 2
Caption = 'file_id.diz'
Font.Charset = DEFAULT_CHARSET
Font.Color = clNavy
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
ParentShowHint = False
ShowHint = True
OnClick = B_DIZClick
end
object B_TXT: TSpeedButton
Left = 3
Top = 26
Width = 61
Height = 17
Hint = 'Search README.TXT'
GroupIndex = 2
Caption = 'readme.txt'
Font.Charset = DEFAULT_CHARSET
Font.Color = clNavy
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
ParentShowHint = False
ShowHint = True
OnClick = B_TXTClick
end
object B_FILE: TSpeedButton
Left = 66
Top = 25
Width = 61
Height = 18
Hint = 'Search <filename>.TXT'
GroupIndex = 2
Caption = 'filename.txt'
Font.Charset = DEFAULT_CHARSET
Font.Color = clNavy
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
ParentShowHint = False
ShowHint = True
OnClick = B_FILEClick
end
object B_Auto: TSpeedButton
Left = 3
Top = 3
Width = 61
Height = 21
Hint = 'Auto search info'
GroupIndex = 2
Down = True
Caption = 'Auto'
Font.Charset = DEFAULT_CHARSET
Font.Color = clNavy
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = [fsBold]
Glyph.Data = {
76010000424D7601000000000000760000002800000020000000100000000100
04000000000000010000120B0000120B00001000000000000000000000000000
800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333303333
333333333337FF3333333333330003333333333333777F333333333333080333
3333333F33777FF33F3333B33B000B33B3333373F777773F7333333BBB0B0BBB
33333337737F7F77F333333BBB0F0BBB33333337337373F73F3333BBB0F7F0BB
B333337F3737F73F7F3333BB0FB7BF0BB3333F737F37F37F73FFBBBB0BF7FB0B
BBB3773F7F37337F377333BB0FBFBF0BB333337F73F333737F3333BBB0FBF0BB
B3333373F73FF7337333333BBB000BBB33333337FF777337F333333BBBBBBBBB
3333333773FF3F773F3333B33BBBBB33B33333733773773373333333333B3333
333333333337F33333333333333B333333333333333733333333}
NumGlyphs = 2
ParentFont = False
ParentShowHint = False
ShowHint = True
OnClick = B_AutoClick
end
object B_Estrai: TSpeedButton
Left = 373
Top = 2
Width = 65
Height = 42
Hint = 'Extract selected file to disk'
Caption = 'Extract...'
Flat = True
Font.Charset = DEFAULT_CHARSET
Font.Color = clBlue
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
Glyph.Data = {
76010000424D7601000000000000760000002800000020000000100000000100
04000000000000010000120B0000120B00001000000000000000000000000000
800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
3333333333333333333333333333333333333333333333333333333333333333
33333FFFFFFFFFFFFFFF000000000000000077777777777777770F7777777777
77707F3F3333333333370F988888888888707F733FFFFFFFF3370F8800000000
88707F337777777733370F888888888888707F333FFFFFFFF3370F8800000000
88707F337777777733370F888888888888707F333333333333370F8888888888
88707F333333333333370FFFFFFFFFFFFFF07FFFFFFFFFFFFFF7000000000000
0000777777777777777733333333333333333333333333333333333333333333
3333333333333333333333333333333333333333333333333333}
Layout = blGlyphTop
NumGlyphs = 2
ParentFont = False
ParentShowHint = False
ShowHint = True
OnClick = B_EstraiClick
end
object B_Shrink: TSpeedButton
Left = 263
Top = 2
Width = 108
Height = 21
Hint = 'Enlarge view box'
Caption = 'Enlarge view'
Flat = True
Font.Charset = DEFAULT_CHARSET
Font.Color = clBlue
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
Glyph.Data = {
76010000424D7601000000000000760000002800000020000000100000000100
04000000000000010000120B0000120B00001000000000000000000000000000
800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
333333333333333333333333333333333333333333FFFFF3333333333CCCCC33
33333FFFF77777FFFFFFCCCCCC808CCCCCC377777737F777777F008888070888
8003773FFF7773FFF77F0F0770F7F0770F037F777737F777737F70FFFFF7FFFF
F07373F3FFF7F3FFF37F70F000F7F000F07337F77737F777373330FFFFF7FFFF
F03337FF3FF7F3FF37F3370F00F7F00F0733373F7737F77337F3370FFFF7FFFF
0733337F33373F337333330FFF030FFF03333373FF7373FF7333333000333000
3333333777333777333333333333333333333333333333333333333333333333
3333333333333333333333333333333333333333333333333333}
NumGlyphs = 2
ParentFont = False
ParentShowHint = False
ShowHint = True
OnClick = B_ShrinkClick
end
object B_Font: TSpeedButton
Left = 263
Top = 24
Width = 108
Height = 19
Hint = 'Change view font'
Caption = 'View font...'
Flat = True
Font.Charset = DEFAULT_CHARSET
Font.Color = clBlue
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
Glyph.Data = {
76010000424D7601000000000000760000002800000020000000100000000100
04000000000000010000130B0000130B00001000000000000000000000000000
800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
3333333333333333333333333333333333333333FFF33FFFFF33333300033000
00333337773377777333333330333300033333337FF33777F333333330733300
0333333377FFF777F33333333700000073333333777777773333333333033000
3333333337FF777F333333333307300033333333377F777F3333333333703007
33333333377F7773333333333330000333333333337777F33333333333300003
33333333337777F3333333333337007333333333337777333333333333330033
3333333333377333333333333333033333333333333733333333333333333333
3333333333333333333333333333333333333333333333333333}
NumGlyphs = 2
ParentFont = False
ParentShowHint = False
ShowHint = True
OnClick = B_FontClick
end
end
object GroupBox1: TGroupBox
Left = 55
Top = 6
Width = 148
Height = 255
Caption = 'Select ZIP files directory'
Font.Charset = DEFAULT_CHARSET
Font.Color = clNavy
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
TabOrder = 1
object ListaDrive: TDriveComboBox
Left = 5
Top = 15
Width = 139
Height = 19
Hint = 'Select drive with ZIP files'
DirList = ListaDir
ParentShowHint = False
ShowHint = True
TabOrder = 0
end
object ListaDir: TDirectoryListBox
Left = 5
Top = 36
Width = 138
Height = 83
Hint = 'Select directory with ZIP files'
FileList = ListaFile
ItemHeight = 16
ParentShowHint = False
ShowHint = True
TabOrder = 1
OnChange = ListaDirChange
end
object ListaFile: TFileListBox
Left = 5
Top = 121
Width = 138
Height = 130
Hint = 'Select ZIP file to view info'
ItemHeight = 13
Mask = '*.zip'
ParentShowHint = False
ShowHint = False
TabOrder = 2
OnChange = ListaFileChange
OnDblClick = ListaFileDblClick
end
end
object Preview: TRichEdit
Left = 206
Top = 5
Width = 418
Height = 257
Font.Charset = OEM_CHARSET
Font.Color = clBlue
Font.Height = -12
Font.Name = 'Terminal'
Font.Style = []
Lines.Strings = (
'')
ParentFont = False
ParentShowHint = False
PlainText = True
ReadOnly = True
ScrollBars = ssBoth
ShowHint = False
TabOrder = 2
WordWrap = False
end
object MarsCaption1: TMarsCaption
ActiveBeginColor = clRed
ActiveEndColor = clYellow
ActiveFontColor = clWhite
InactiveBeginColor = clGray
InactiveEndColor = clSilver
InactiveFontColor = clSilver
ApplicationNameFont.Charset = DEFAULT_CHARSET
ApplicationNameFont.Color = clWindowText
ApplicationNameFont.Height = -11
ApplicationNameFont.Name = 'MS Sans Serif'
ApplicationNameFont.Style = [fsBold]
CaptionFont.Charset = DEFAULT_CHARSET
CaptionFont.Color = clWindowText
CaptionFont.Height = -11
CaptionFont.Name = 'MS Sans Serif'
CaptionFont.Style = []
NumColors = 64
AutoSize = False
Left = 190
Top = 65525
end
object FontDialog1: TFontDialog
Font.Charset = OEM_CHARSET
Font.Color = clBlue
Font.Height = -12
Font.Name = 'Terminal'
Font.Style = []
MinFontSize = 0
MaxFontSize = 0
Options = [fdEffects, fdApplyButton]
Left = 222
Top = 65528
end
end