object Form1: TForm1 Left = 52 Top = 49 BorderIcons = [biSystemMenu, biMinimize] BorderStyle = bsSingle Caption = 'Quick Viewer' ClientHeight = 320 ClientWidth = 495 Font.Color = clWindowText Font.Height = -13 Font.Name = 'System' Font.Style = [] Icon.Data = {} Menu = MainMenu1 OnCreate = FormCreate PixelsPerInch = 96 TextHeight = 16 object Label1: TLabel Left = 152 Top = 136 Width = 105 Height = 16 AutoSize = False Color = clNavy Font.Color = clWhite Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] ParentColor = False ParentFont = False end object Label2: TLabel Left = 152 Top = 264 Width = 105 Height = 16 AutoSize = False Color = clNavy Font.Color = clWhite Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] ParentColor = False ParentFont = False end object Label3: TLabel Left = 268 Top = 136 Width = 105 Height = 16 AutoSize = False Color = clNavy Font.Color = clWhite Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] ParentColor = False ParentFont = False end object Label4: TLabel Left = 268 Top = 264 Width = 105 Height = 16 AutoSize = False Color = clNavy Font.Color = clWhite Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] ParentColor = False ParentFont = False end object Label5: TLabel Left = 384 Top = 136 Width = 105 Height = 16 AutoSize = False Color = clNavy Font.Color = clWhite Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] ParentColor = False ParentFont = False end object Label6: TLabel Left = 384 Top = 264 Width = 105 Height = 16 AutoSize = False Color = clNavy Font.Color = clWhite Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] ParentColor = False ParentFont = False end object Panel1: TPanel Left = 152 Top = 40 Width = 105 Height = 93 Color = clSilver TabOrder = 0 object Image1: TImage Left = 4 Top = 4 Width = 97 Height = 85 OnClick = ViewFull end end object Panel2: TPanel Left = 152 Top = 168 Width = 105 Height = 93 Color = clSilver Font.Color = clWhite Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] ParentFont = False TabOrder = 1 object Image2: TImage Left = 4 Top = 4 Width = 97 Height = 85 OnClick = ViewFull end end object ScrollBar1: TScrollBar Left = 152 Top = 292 Width = 337 Height = 17 LargeChange = 2 SmallChange = 2 TabOrder = 2 OnChange = ScrollBar1Change end object FilterComboBox1: TFilterComboBox Left = 152 Top = 4 Width = 154 Height = 21 Filter = 'Bitmap Graphics (*.BMP)|*.bmp|ClipArt Graphics (*.WMF)|*.wmf' Font.Color = clBlack Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] ParentFont = False TabOrder = 3 OnChange = FilterComboBox1Change end object Panel3: TPanel Left = 268 Top = 40 Width = 105 Height = 93 Color = clSilver TabOrder = 4 object Image3: TImage Left = 4 Top = 4 Width = 97 Height = 85 OnClick = ViewFull end end object Panel4: TPanel Left = 268 Top = 168 Width = 105 Height = 93 Color = clSilver Font.Color = clWhite Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] ParentFont = False TabOrder = 5 object Image4: TImage Left = 4 Top = 4 Width = 97 Height = 85 OnClick = ViewFull end end object Panel5: TPanel Left = 384 Top = 40 Width = 105 Height = 93 Color = clSilver TabOrder = 6 object Image5: TImage Left = 4 Top = 4 Width = 97 Height = 85 OnClick = ViewFull end end object Panel6: TPanel Left = 384 Top = 168 Width = 105 Height = 93 Color = clSilver Font.Color = clWhite Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] ParentFont = False TabOrder = 7 object Image6: TImage Left = 4 Top = 4 Width = 97 Height = 85 OnClick = ViewFull end end object DirectoryListBox1: TDirectoryListBox Left = 5 Top = 35 Width = 141 Height = 276 FileList = FileListBox1 Font.Color = clWindowText Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] ItemHeight = 16 ParentFont = False TabOrder = 8 OnChange = NewDirectory end object DriveComboBox1: TDriveComboBox Left = 5 Top = 5 Width = 141 Height = 19 DirList = DirectoryListBox1 Font.Color = clWindowText Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] ParentFont = False TabOrder = 9 end object FileListBox1: TFileListBox Left = 350 Top = 5 Width = 131 Height = 26 ItemHeight = 16 Mask = '*.bmp' TabOrder = 10 Visible = False end object MainMenu1: TMainMenu Left = 316 Top = 65532 object File1: TMenuItem Caption = 'File' ShortCut = 0 object Exit1: TMenuItem Caption = 'Exit' ShortCut = 0 OnClick = Exit1Click end end object Help1: TMenuItem Caption = 'Help' ShortCut = 0 object Details1: TMenuItem Caption = 'Details...' ShortCut = 0 OnClick = Details1Click end object About1: TMenuItem Caption = 'About...' ShortCut = 0 OnClick = About1Click end end end end