object Info: TInfo Left = 197 Top = 123 BorderIcons = [biSystemMenu, biMinimize] BorderStyle = bsToolWindow Caption = 'WinDIZ info' ClientHeight = 292 ClientWidth = 426 Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] Icon.Data = {} OnCreate = FormCreate OnShow = FormShow PixelsPerInch = 96 TextHeight = 13 object ProgramIcon: TImage Left = 12 Top = 9 Width = 32 Height = 32 AutoSize = True Center = True Picture.Data = {} Stretch = True IsControl = True end object ProductName: TLabel Left = 56 Top = 1 Width = 67 Height = 45 Alignment = taCenter Caption = 'Info' Font.Charset = ANSI_CHARSET Font.Color = clRed Font.Height = -32 Font.Name = 'Comic Sans MS' Font.Style = [fsBold] ParentFont = False IsControl = True end object Close: TSpeedButton Left = 129 Top = 266 Width = 158 Height = 23 Caption = 'Back to program' 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 33333333333333333333333333333333333333333333333333FF333333333333 3000333333FFFFF3F77733333000003000B033333777773777F733330BFBFB00 E00033337FFF3377F7773333000FBFB0E000333377733337F7773330FBFBFBF0 E00033F7FFFF3337F7773000000FBFB0E000377777733337F7770BFBFBFBFBF0 E00073FFFFFFFF37F777300000000FB0E000377777777337F7773333330BFB00 000033333373FF77777733333330003333333333333777333333333333333333 3333333333333333333333333333333333333333333333333333333333333333 3333333333333333333333333333333333333333333333333333} NumGlyphs = 2 ParentFont = False OnClick = CloseClick end object RichEdit1: TRichEdit Left = 4 Top = 48 Width = 421 Height = 213 Font.Charset = ANSI_CHARSET Font.Color = clWindowText Font.Height = -13 Font.Name = 'MS Sans Serif' Font.Style = [] Lines.Strings = ( 'WinDIZ v. 1.2 - July 1998' 'NG Software, Rome, Italy' '=====================' '' 'Have you ever used files ZIP? Downloading by Internet every kind' + ' ' 'of program I had Mbytes of software, but after a while I didn'#39't ' 'remember which was the CONTENT of these thousand files.' 'You'#39'll say: "But almost every file has a FILE_ID.DIZ, or ' 'README.TXT, or .TXT with an abstract of the program!' + '"' '' 'Here we are. This small program preserve you from the pain of ' 'open the file, read the file_id.diz (or readme.txt, or .txt)' 'and closing all, in a fraction of the time needed '#39'by hand'#39'.' '' '>> Using WinDIZ:' '' 'The "preview" button, if pressed, go skipping press the button ' '"view" one by one (same if double click on file name).' '' 'The "DIZ", "TXT" and "FILE" buttons select file type to search,' 'the "AUTO" button search the first type available, in the same o' + 'rder.' '' 'The '#39'Enlarge view'#39' button helps to read text info if you don'#39't l' + 'ike ' 'scrollbars.' '' 'Selecting the most confortable font is easy with the "View font"' + ' ' 'button. For a better view please select non-proportional, OEM' 'type fonts (Terminal, System).' '' 'The "Extract'#39' button give you the facility to unzip the file in ' + 'a directory ' 'of your choice; if you manually type the directory name in the e' + 'dit ' 'box, it will be created if not exists; if the ZIP file has a dir' + 'ectory' 'structure embedded, it will be automatically restored (it'#39's the ' + 'same' 'effect of the switch '#39'-D'#39' in pkunzip).' '' 'That'#39's all. It'#39's my first freeware program, so any tips/comments' + '/hints' 'e-mailed to me are welcome; I apologize for my bad English, but ' + 'it'#39's ' 'not my native language (I'#39'm Italian). :-)' '' 'Enjoy !' '' ' ' ' guglielmino.cancelli@writ' + 'eme.com') ParentFont = False ReadOnly = True ScrollBars = ssBoth TabOrder = 0 end object Logo: TAnimate Left = 289 Top = 9 Width = 120 Height = 32 Active = False FileName = 'WinDIZ.avi' StopFrame = 24 end object MarsCaption1: TMarsCaption ActiveBeginColor = clBlue ActiveEndColor = clAqua 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 = 363 Top = 262 end end