importbitmaps.dfm

N年前有个法国小组用Delphi写了一个2D网游（AD&D类型）

object BitmapImporter: TBitmapImporter
  Left = 275
  Top = 276
  Width = 442
  Height = 279
  Caption = 'Ajouter une image...'
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  OnCreate = FormCreate
  OnDestroy = FormDestroy
  DesignSize = (
    434
    252)
  PixelsPerInch = 96
  TextHeight = 13
  object Image4: TImage
    Left = 6
    Top = 229
    Width = 16
    Height = 16
    Anchors = [akLeft, akBottom]
    AutoSize = True
    Picture.Data = {
      07544269746D6170F6000000424DF60000000000000076000000280000001000
      000010000000010004000000000080000000C40E0000C40E0000100000000000
      000000000000000080000080000000808000800000008000800080800000C0C0
      C000808080000000FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFF
      FF00777777778777777777777770087777777777770000877777777770000007
      7777777777700877877777708770087708777700888008880087700000000000
      0008700000000000000777008770087700777770777008770777777777800887
      7777777770000007777777777700007777777777777007777777777777777777
      7777}
    OnMouseDown = Image4MouseDown
    OnMouseMove = Image4MouseMove
    OnMouseUp = Image4MouseUp
  end
  object Label1: TLabel
    Left = 30
    Top = 229
    Width = 33
    Height = 13
    Anchors = [akLeft, akBottom]
    Caption = 'Origine'
  end
  object Image5: TImage
    Left = 192
    Top = 230
    Width = 16
    Height = 16
    Anchors = [akLeft, akBottom]
    AutoSize = True
    Picture.Data = {
      07544269746D6170F6000000424DF60000000000000076000000280000001000
      000010000000010004000000000080000000C40E0000C40E0000100000000000
      000000000000000080000080000000808000800000008000800080800000C0C0
      C000808080000000FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFF
      FF00766666667777777766000666667777777606606667777777770FF6077777
      77777770FF607777777777770FF607777777777770FF807777777777770FF807
      077777777770FF800777777777770F0000777777777770000007777777770000
      0000777777777700000077777777777070007777777777770007777777777777
      7777}
    OnClick = Image5Click
  end
  object Label2: TLabel
    Left = 216
    Top = 230
    Width = 66
    Height = 13
    Anchors = [akLeft, akBottom]
    Caption = 'Transparence'
  end
  object shColor: TShape
    Left = 288
    Top = 230
    Width = 49
    Height = 17
    Anchors = [akLeft, akBottom]
    ParentShowHint = False
    ShowHint = True
  end
  object OK: TButton
    Left = 349
    Top = 8
    Width = 75
    Height = 25
    Anchors = [akTop, akRight]
    Caption = 'OK'
    Default = True
    ModalResult = 1
    TabOrder = 0
    OnClick = OKClick
  end
  object Button2: TButton
    Left = 349
    Top = 40
    Width = 75
    Height = 25
    Anchors = [akTop, akRight]
    Cancel = True
    Caption = 'Annuler'
    ModalResult = 2
    TabOrder = 1
  end
  object seOrgX: TSpinEdit
    Left = 70
    Top = 227
    Width = 49
    Height = 22
    Anchors = [akLeft, akBottom]
    MaxValue = 0
    MinValue = 0
    TabOrder = 2
    Value = 0
    OnChange = seOrgXChange
  end
  object seOrgY: TSpinEdit
    Tag = 1
    Left = 126
    Top = 227
    Width = 49
    Height = 22
    Anchors = [akLeft, akBottom]
    MaxValue = 0
    MinValue = 0
    TabOrder = 3
    Value = 0
    OnChange = seOrgXChange
  end
  object Panel2: TPanel
    Left = 8
    Top = 8
    Width = 331
    Height = 217
    Anchors = [akLeft, akTop, akRight, akBottom]
    BevelOuter = bvNone
    BorderStyle = bsSingle
    Color = clAppWorkSpace
    TabOrder = 4
    object PaintBox1: TPaintBox
      Left = 0
      Top = 0
      Width = 327
      Height = 213
      Align = alClient
      ParentShowHint = False
      ShowHint = True
      OnMouseDown = PaintBox1MouseDown
      OnMouseMove = PaintBox1MouseMove
      OnPaint = PaintBox1Paint
    end
  end
  object cbCheckboard: TCheckBox
    Left = 354
    Top = 72
    Width = 65
    Height = 17
    Anchors = [akTop, akRight]
    Caption = 'Damier'
    TabOrder = 5
    OnClick = cbCheckboardClick
  end
  object cbGrid: TCheckBox
    Left = 354
    Top = 96
    Width = 50
    Height = 17
    Anchors = [akTop, akRight]
    Caption = 'Grille'
    TabOrder = 6
    OnClick = cbCheckboardClick
  end
  object cbOrg: TCheckBox
    Left = 354
    Top = 120
    Width = 65
    Height = 17
    Anchors = [akTop, akRight]
    Caption = 'Origine'
    Checked = True
    State = cbChecked
    TabOrder = 7
    OnClick = cbCheckboardClick
  end
  object ColorDialog1: TColorDialog
    Ctl3D = True
    Options = [cdFullOpen, cdAnyColor]
    Left = 352
    Top = 216
  end
end