Hot Shareware 35/hot35.iso/ficheros/9UTI/UBELT.ZIP/UBshar.EXE/Viewer.exe/0/RCDATA/TFORM1/TFORM1.txt

Text File | 1998-03-17 | 6KB | 297 lines

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