unit1.~dfm

一个看图程序 一个看图程序

object ImageView: TImageView
  Left = 237
  Top = 40
  Width = 800
  Height = 524
  BorderIcons = [biSystemMenu, biMinimize]
  Caption = '图片浏览器'
  Color = clBtnFace
  Font.Charset = GB2312_CHARSET
  Font.Color = clWindowText
  Font.Height = -12
  Font.Name = '宋体'
  Font.Style = []
  OldCreateOrder = False
  Position = poScreenCenter
  Scaled = False
  OnCreate = FormCreate
  PixelsPerInch = 96
  TextHeight = 12
  object Panel1: TPanel
    Left = 0
    Top = 473
    Width = 792
    Height = 24
    Align = alBottom
    BevelOuter = bvLowered
    TabOrder = 0
    object Gauge1: TGauge
      Left = 336
      Top = 2
      Width = 329
      Height = 20
      BackColor = clMenu
      Color = clBlue
      ForeColor = clBlue
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clRed
      Font.Height = -13
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentColor = False
      ParentFont = False
      Progress = 0
    end
    object Panel6: TPanel
      Left = 1
      Top = 1
      Width = 72
      Height = 22
      Align = alLeft
      TabOrder = 0
    end
    object Panel7: TPanel
      Left = 666
      Top = 1
      Width = 65
      Height = 22
      Align = alRight
      Caption = '关闭'
      TabOrder = 1
      OnClick = Panel7Click
      OnMouseDown = Panel7MouseDown
      OnMouseUp = Panel7MouseUp
    end
    object Panel8: TPanel
      Left = 73
      Top = 1
      Width = 263
      Height = 22
      Align = alLeft
      Alignment = taLeftJustify
      TabOrder = 2
    end
    object Panel10: TPanel
      Left = 731
      Top = 1
      Width = 60
      Height = 22
      Align = alRight
      Caption = '关于'
      TabOrder = 3
      OnClick = Panel10Click
      OnMouseDown = Panel10MouseDown
      OnMouseUp = Panel10MouseUp
    end
  end
  object Panel2: TPanel
    Left = 0
    Top = 0
    Width = 210
    Height = 473
    Align = alLeft
    Caption = 'Panel2'
    TabOrder = 1
    object DCB: TDriveComboBox
      Left = 1
      Top = 3
      Width = 208
      Height = 18
      Color = clWhite
      Ctl3D = False
      ParentCtl3D = False
      TabOrder = 0
      OnChange = DCBChange
    end
    object Panel4: TPanel
      Left = 1
      Top = 26
      Width = 208
      Height = 446
      Align = alBottom
      BevelOuter = bvNone
      TabOrder = 1
      object DOT: TDirectoryOutline
        Left = 0
        Top = 0
        Width = 208
        Height = 165
        Align = alTop
        Color = clWhite
        Ctl3D = True
        ItemHeight = 16
        Options = [ooDrawFocusRect]
        ParentCtl3D = False
        ParentShowHint = False
        PictureClosed.Data = {
          76010000424D7601000000000000760000002800000020000000100000000100
          04000000000000010000120B0000120B00001000000000000000000000000000
          800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
          FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
          33333333333333333333333333C3333333333333337F3333333333333C0C3333
          333333333777F33333333333C0F0C3333333333377377F333333333C0FFF0C33
          3333333777F377F3333333CCC0FFF0C333333373377F377F33333CCCCC0FFF0C
          333337333377F377F3334CCCCCC0FFF0C3337F3333377F377F33C4CCCCCC0FFF
          0C3377F333F377F377F33C4CC0CCC0FFF0C3377F3733F77F377333C4CCC0CC0F
          0C333377F337F3777733333C4C00CCC0333333377F773337F3333333C4CCCCCC
          3333333377F333F7333333333C4CCCC333333333377F37733333333333C4C333
          3333333333777333333333333333333333333333333333333333}
        PictureLeaf.Data = {
          76010000424D7601000000000000760000002800000020000000100000000100
          04000000000000010000120B0000120B00001000000000000000000000000000
          800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
          FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
          33333333333333333333333333C3333333333333337F3333333333333C0C3333
          333333333777F33333333333C0F0C3333333333377377F333333333C0FFF0C33
          3333333777F377F3333333CCC0FFF0C333333373377F377F33333CCCCC0FFF0C
          333337333377F377F3334CCCCCC0FFF0C3337F3333377F377F33C4CCCCCC0FFF
          0C3377F333F377F377F33C4CC0CCC0FFF0C3377F3733F77F377333C4CCC0CC0F
          0C333377F337F3777733333C4C00CCC0333333377F773337F3333333C4CCCCCC
          3333333377F333F7333333333C4CCCC333333333377F37733333333333C4C333
          3333333333777333333333333333333333333333333333333333}
        PictureOpen.Data = {
          76010000424D7601000000000000760000002800000020000000100000000100
          04000000000000010000120B0000120B00001000000000000000000000000000
          800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
          FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
          333333333333FF3333333333333C0C333333333333F777F3333333333CC0F0C3
          333333333777377F33333333C30F0F0C333333337F737377F333333C00FFF0F0
          C33333F7773337377F333CC0FFFFFF0F0C3337773F33337377F3C30F0FFFFFF0
          F0C37F7373F33337377F00FFF0FFFFFF0F0C7733373F333373770FFFFF0FFFFF
          F0F073F33373F333373730FFFFF0FFFFFF03373F33373F333F73330FFFFF0FFF
          00333373F33373FF77333330FFFFF000333333373F333777333333330FFF0333
          3333333373FF7333333333333000333333333333377733333333333333333333
          3333333333333333333333333333333333333333333333333333}
        Style = otOwnerDraw
        ShowHint = True
        TabOrder = 0
        TextCase = tcAsIs
        OnChange = DOTChange
        Data = {1C}
      end
      object Panel5: TPanel
        Left = 0
        Top = 192
        Width = 208
        Height = 253
        BevelOuter = bvNone
        Ctl3D = False
        ParentCtl3D = False
        TabOrder = 1
        object FB: TFileListBox
          Left = 176
          Top = 208
          Width = 183
          Height = 184
          Color = clScrollBar
          Ctl3D = False
          ItemHeight = 16
          Mask = '*.bmp;*.jpg;*.jpeg;*.ico'
          ParentCtl3D = False
          ParentShowHint = False
          ShowGlyphs = True
          ShowHint = True
          TabOrder = 0
          Visible = False
        end
        object PageControl1: TPageControl
          Left = 0
          Top = 0
          Width = 208
          Height = 253
          ActivePage = TabSheet3
          Align = alClient
          TabOrder = 1
          object TabSheet1: TTabSheet
            Caption = '图片'
            object ImgBig: TImage
              Left = 0
              Top = 0
              Width = 200
              Height = 204
              Align = alClient
              Center = True
              OnDblClick = ImgBigDblClick
            end
            object Panel9: TPanel
              Left = 0
              Top = 204
              Width = 200
              Height = 22
              Align = alBottom
              BevelInner = bvLowered
              TabOrder = 0
              object CB: TCheckBox
                Left = 7
                Top = 3
                Width = 48
                Height = 17
                Caption = '拉伸'
                TabOrder = 0
                OnClick = CBClick
              end
            end
          end
          object TabSheet2: TTabSheet
            Caption = '设置'
            ImageIndex = 1
            object CB1: TCheckBox
              Left = 4
              Top = 8
              Width = 157
              Height = 17
              Caption = '图片列表框中图片拉伸'
              TabOrder = 0
              OnClick = CB1Click
            end
            object CB2: TCheckBox
              Left = 4
              Top = 36
              Width = 165
              Height = 17
              Caption = '可以使用右键菜单'
              Checked = True
              State = cbChecked
              TabOrder = 1
              OnClick = CB2Click
            end
            object CB3: TCheckBox
              Left = 4
              Top = 64
              Width = 177
              Height = 17
              Caption = '悬停出现图片大小提示'
              Checked = True
              State = cbChecked
              TabOrder = 2
              OnClick = CB3Click
            end
          end
          object TabSheet3: TTabSheet
            Caption = '说明'
            ImageIndex = 2
            object Memo1: TMemo
              Left = 0
              Top = 0