unit1.dfm

使用Delphi实现了对一张图片的几何变换

object Form1: TForm1
  Left = 497
  Top = 153
  Width = 306
  Height = 361
  Caption = #22270#20687#20960#20309#21464#25442
  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
  PixelsPerInch = 96
  TextHeight = 13
  object Image1: TImage
    Left = 16
    Top = 0
    Width = 257
    Height = 289
    AutoSize = True
    PopupMenu = PopupMenu1
    Stretch = True
  end
  object StatusBar1: TStatusBar
    Left = 0
    Top = 296
    Width = 298
    Height = 19
    Panels = <>
  end
  object MainMenu1: TMainMenu
    Left = 112
    Top = 8
    object N1: TMenuItem
      Caption = #25171#24320#21644#20445#23384
      object N19: TMenuItem
        Caption = #25171#24320#22270#35937'[&O]'
        ShortCut = 49231
        OnClick = N19Click
      end
      object N20: TMenuItem
        Caption = #20445#23384#22270#35937'[&S]'
        ShortCut = 49235
        OnClick = N20Click
      end
      object N2: TMenuItem
        Caption = '-'
      end
      object Q1: TMenuItem
        Caption = #36864#20986'[&Q]'
        ShortCut = 49233
        OnClick = Q1Click
      end
    end
  end
  object OpenPictureDialog1: TOpenPictureDialog
    Left = 48
    Top = 8
  end
  object SavePictureDialog1: TSavePictureDialog
    Left = 80
    Top = 8
  end
  object PopupMenu1: TPopupMenu
    Left = 144
    Top = 8
    object N90S1: TMenuItem
      Caption = #39034#26102#38024'90'#24230#26059#36716'[&S]'
      ShortCut = 16467
      OnClick = N90S1Click
    end
    object N90N1: TMenuItem
      Caption = #36870#26102#38024'90'#24230#26059#36716'[&N]'
      ShortCut = 16462
      OnClick = N90N1Click
    end
    object N5: TMenuItem
      Caption = #20219#24847#35282#24230#26059#36716'[&R]'
      ShortCut = 16466
      OnClick = N5Click
    end
    object N6: TMenuItem
      Caption = '-'
    end
    object I1: TMenuItem
      Caption = #32553#23567'[&I]'
      ShortCut = 16457
      OnClick = I1Click
    end
    object O1: TMenuItem
      Caption = #25918#22823'[&O]'
      ShortCut = 16463
      OnClick = O1Click
    end
    object N10: TMenuItem
      Caption = '-'
    end
    object N11: TMenuItem
      Caption = #25197#26354#25928#26524'[&T]'
      ShortCut = 16468
      OnClick = N11Click
    end
    object N12: TMenuItem
      Caption = #27874#28010#25928#26524'[&B]'
      ShortCut = 16450
      OnClick = N12Click
    end
    object Y1: TMenuItem
      Caption = #36828#35270#22270#25928#26524'[&Y]'
      ShortCut = 16473
      OnClick = Y1Click
    end
    object N13: TMenuItem
      Caption = '-'
    end
    object N15: TMenuItem
      Caption = #27700#24179#38236#20687'[&H]'
      ShortCut = 16456
      OnClick = N15Click
    end
    object V1: TMenuItem
      Caption = #22402#30452#38236#20687'[&V]'
      ShortCut = 16470
      OnClick = V1Click
    end
    object C1: TMenuItem
      Caption = #35009#21098#22270#20687'[&C]'
      ShortCut = 16451
      OnClick = C1Click
    end
    object N17: TMenuItem
      Caption = '-'
    end
    object R1: TMenuItem
      Caption = #36824#21407#22270#20687'[&R]'
      ShortCut = 16466
      OnClick = R1Click
    end
  end
end