bmpview.dfm

Delphi高级程序开发配书源代码,可以循序渐进的学习Delphi.

object BmpViewer: TBmpViewer
  Left = 206
  Top = 185
  Width = 696
  Height = 488
  Caption = 'BMP'#27983#35272
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  Menu = MainMenu1
  OldCreateOrder = False
  OnCreate = FormCreate
  OnDestroy = FormDestroy
  PixelsPerInch = 96
  TextHeight = 13
  object TabControl1: TTabControl
    Left = 0
    Top = 0
    Width = 688
    Height = 442
    Align = alClient
    DockSite = True
    OwnerDraw = True
    TabOrder = 0
    OnChange = TabControl1Change
    OnDrawTab = TabControl1DrawTab
    object Image1: TImage
      Left = 4
      Top = 6
      Width = 680
      Height = 432
      Align = alClient
      Center = True
      DragKind = dkDock
      Stretch = True
      Transparent = True
    end
  end
  object MainMenu1: TMainMenu
    Left = 144
    Top = 152
    object mFile: TMenuItem
      Caption = #25991#20214
      object mOpen: TMenuItem
        Caption = #25171#24320'(&O)'
        OnClick = mOpenClick
      end
      object N1: TMenuItem
        Caption = '-'
      end
      object mExit: TMenuItem
        Caption = #36864#20986'(&E)'
        OnClick = mExitClick
      end
    end
    object mEdit: TMenuItem
      Caption = #32534#36753
      OnClick = mEditClick
      object mCut: TMenuItem
        Caption = #21098#20999'(&T)'
        ShortCut = 16472
        OnClick = mCutClick
      end
      object mCopy: TMenuItem
        Caption = #25335#36125'(&C)'
        ShortCut = 16451
        OnClick = mCopyClick
      end
      object mPaste: TMenuItem
        Caption = #31896#36148'(V)'
        ShortCut = 16470
        OnClick = mPasteClick
      end
      object N2: TMenuItem
        Caption = '-'
      end
      object mDel: TMenuItem
        Caption = #21024#38500'(&D)'
        OnClick = mDelClick
      end
    end
    object mHelp: TMenuItem
      Caption = #24110#21161
      object mAbout: TMenuItem
        Caption = #20851#20110'(&A)'
        OnClick = mAboutClick
      end
    end
  end
  object OpenDialog1: TOpenDialog
    FileName = '*.bmp'
    FilterIndex = 0
    Left = 64
    Top = 64
  end
end