imageviewerf.dfm

极具实用价值的文件管理系统

inherited fmImageViewer: TfmImageViewer
  Top = 227
  Width = 700
  Height = 500
  Caption = 'Image Viewer'
  Menu = mnuMain
  OldCreateOrder = True
  Position = poDesigned
  OnResize = FormResize
  PixelsPerInch = 96
  TextHeight = 13
  object SptWidth: TSplitter
    Left = 154
    Top = 24
    Width = 2
    Height = 411
    Visible = False
    OnMoved = SptWidthMoved
  end
  object ToolBar1: TToolBar
    Left = 0
    Top = 0
    Width = 692
    Height = 24
    AutoSize = True
    ButtonWidth = 24
    Caption = 'ToolBar1'
    Flat = True
    Images = ImgActionList
    TabOrder = 0
    Transparent = True
    object ToolButton19: TToolButton
      Left = 0
      Top = 0
      Action = actViewInformation
    end
    object ToolButton23: TToolButton
      Left = 24
      Top = 0
      Width = 8
      Caption = 'ToolButton23'
      ImageIndex = 1
      Style = tbsSeparator
    end
    object ToolButton2: TToolButton
      Left = 32
      Top = 0
      Action = actSaveAs
    end
    object ToolButton3: TToolButton
      Left = 56
      Top = 0
      Action = actPrint
    end
    object ToolButton4: TToolButton
      Left = 80
      Top = 0
      Width = 8
      Caption = 'ToolButton4'
      ImageIndex = 3
      Style = tbsSeparator
    end
    object ToolButton5: TToolButton
      Left = 88
      Top = 0
      Action = actFirst
    end
    object ToolButton6: TToolButton
      Left = 112
      Top = 0
      Action = actPrevious
    end
    object ToolButton7: TToolButton
      Left = 136
      Top = 0
      Action = actNext
    end
    object ToolButton9: TToolButton
      Left = 160
      Top = 0
      Action = actLast
    end
    object ToolButton22: TToolButton
      Left = 184
      Top = 0
      Width = 8
      Caption = 'ToolButton22'
      ImageIndex = 15
      Style = tbsSeparator
    end
    object ToolButton21: TToolButton
      Left = 192
      Top = 0
      Action = actAutoAdvance
    end
    object ToolButton8: TToolButton
      Left = 216
      Top = 0
      Width = 8
      Caption = 'ToolButton8'
      ImageIndex = 6
      Style = tbsSeparator
    end
    object ToolButton10: TToolButton
      Left = 224
      Top = 0
      Action = actRotateLeft
    end
    object ToolButton12: TToolButton
      Left = 248
      Top = 0
      Action = actRotateRight
    end
    object ToolButton11: TToolButton
      Left = 272
      Top = 0
      Width = 8
      Caption = 'ToolButton11'
      ImageIndex = 8
      Style = tbsSeparator
    end
    object cbxZoomTo: TComboBox
      Left = 280
      Top = 0
      Width = 57
      Height = 21
      AutoComplete = False
      ItemHeight = 13
      TabOrder = 0
      Text = '100'
      OnClick = cbxZoomToClick
      OnKeyPress = cbxZoomToKeyPress
      Items.Strings = (
        '100'
        '200'
        '300'
        '400'
        '500')
    end
    object ToolButton13: TToolButton
      Left = 337
      Top = 0
      Action = actZoomOut
    end
    object ToolButton14: TToolButton
      Left = 361
      Top = 0
      Action = actZoomIn
    end
    object ToolButton20: TToolButton
      Left = 385
      Top = 0
      Width = 8
      Caption = 'ToolButton20'
      ImageIndex = 12
      Style = tbsSeparator
    end
    object ToolButton15: TToolButton
      Left = 393
      Top = 0
      Action = actFitWidth
    end
    object ToolButton16: TToolButton
      Left = 417
      Top = 0
      Action = actFitHeight
    end
    object ToolButton18: TToolButton
      Left = 441
      Top = 0
      Action = actAutoFit
    end
    object ToolButton17: TToolButton
      Left = 465
      Top = 0
      Width = 8
      Caption = 'ToolButton17'
      ImageIndex = 13
      Style = tbsSeparator
    end
    object ToolButton1: TToolButton
      Left = 473
      Top = 0
      Action = actBrowse
    end
  end
  object pnlInformation: TPanel
    Left = 0
    Top = 24
    Width = 154
    Height = 411
    Align = alLeft
    BevelInner = bvRaised
    BevelOuter = bvLowered
    TabOrder = 1
    Visible = False
    OnResize = pnlInformationResize
    object lblDocNo: TCycLabel
      Left = 8
      Top = 16
      Width = 69
      Height = 13
      Caption = 'Document No.'
      Transparent = True
    end
    object lblDocType: TCycLabel
      Left = 8
      Top = 64
      Width = 42
      Height = 13
      Caption = 'Category'
      Color = clBtnFace
      ParentColor = False
      Transparent = True
    end
    object lblDocName: TCycLabel
      Left = 8
      Top = 112
      Width = 80
      Height = 13
      Caption = 'Document Name'
      Transparent = True
    end
    object lblFileName: TCycLabel
      Left = 8
      Top = 160
      Width = 47
      Height = 13
      Caption = 'File Name'
      Transparent = True
    end
    object lblVersion: TCycLabel
      Left = 8
      Top = 208
      Width = 35
      Height = 13
      Caption = 'Version'
      Transparent = True
    end
    object lblRemarks: TCycLabel
      Left = 8
      Top = 256
      Width = 42
      Height = 13
      Caption = 'Remarks'
      Transparent = True
    end
    object edtDocNo: TCycEdit
      Left = 8
      Top = 32
      Width = 138
      Height = 21
      Ctl3D = True
      ParentCtl3D = False
      ReadOnly = True
      TabOrder = 0
    end
    object edtDocType: TCycEdit
      Left = 8
      Top = 80
      Width = 138
      Height = 21
      Ctl3D = True
      ParentCtl3D = False