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 = {} 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 .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