imageproperties.dfm

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

object ImageEditor: TImageEditor
  Left = 298
  Top = 358
  BorderStyle = bsToolWindow
  Caption = 'Propri'#233't'#233's de l'#39'image'
  ClientHeight = 136
  ClientWidth = 248
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  FormStyle = fsStayOnTop
  OldCreateOrder = False
  PixelsPerInch = 96
  TextHeight = 13
  object PageControl1: TPageControl
    Left = 0
    Top = 0
    Width = 248
    Height = 136
    ActivePage = TabSheet1
    Align = alClient
    TabIndex = 0
    TabOrder = 0
    object TabSheet1: TTabSheet
      Caption = 'Position'
      object Label3: TLabel
        Left = 16
        Top = 16
        Width = 7
        Height = 13
        Caption = 'X'
      end
      object Label4: TLabel
        Left = 16
        Top = 48
        Width = 7
        Height = 13
        Caption = 'Y'
      end
      object SpeedButton1: TSpeedButton
        Tag = 101
        Left = 144
        Top = 16
        Width = 23
        Height = 22
        Caption = #245
        Font.Charset = SYMBOL_CHARSET
        Font.Color = clWindowText
        Font.Height = -16
        Font.Name = 'Wingdings'
        Font.Style = []
        ParentFont = False
        OnClick = SpeedButton1Click
      end
      object SpeedButton2: TSpeedButton
        Tag = 103
        Left = 170
        Top = 16
        Width = 23
        Height = 22
        Caption = #246
        Font.Charset = SYMBOL_CHARSET
        Font.Color = clWindowText
        Font.Height = -16
        Font.Name = 'Wingdings'
        Font.Style = []
        ParentFont = False
        OnClick = SpeedButton1Click
      end
      object SpeedButton3: TSpeedButton
        Tag = 301
        Left = 144
        Top = 40
        Width = 23
        Height = 22
        Caption = #247
        Font.Charset = SYMBOL_CHARSET
        Font.Color = clWindowText
        Font.Height = -16
        Font.Name = 'Wingdings'
        Font.Style = []
        ParentFont = False
        OnClick = SpeedButton1Click
      end
      object SpeedButton4: TSpeedButton
        Tag = 303
        Left = 170
        Top = 40
        Width = 23
        Height = 22
        Caption = #248
        Font.Charset = SYMBOL_CHARSET
        Font.Color = clWindowText
        Font.Height = -16
        Font.Name = 'Wingdings'
        Font.Style = []
        ParentFont = False
        OnClick = SpeedButton1Click
      end
      object Label7: TLabel
        Left = 16
        Top = 80
        Width = 7
        Height = 13
        Caption = 'Z'
      end
      object Image1: TImage
        Left = 112
        Top = 16
        Width = 16
        Height = 16
        AutoSize = True
        Picture.Data = {
          07544269746D6170F6000000424DF60000000000000076000000280000001000
          000010000000010004000000000080000000C40E0000C40E0000100000000000
          000000000000000080000080000000808000800000008000800080800000C0C0
          C000808080000000FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFF
          FF00777777778777777777777770087777777777770000877777777770000007
          7777777777700877877777708770087708777700888008880087700000000000
          0008700000000000000777008770087700777770777008770777777777800887
          7777777770000007777777777700007777777777777007777777777777777777
          7777}
        OnMouseDown = Image1MouseDown
        OnMouseMove = Image1MouseMove
        OnMouseUp = Image1MouseUp
      end
      object Image2: TImage
        Left = 112
        Top = 78
        Width = 16
        Height = 16
        AutoSize = True
        Picture.Data = {
          07544269746D6170F6000000424DF60000000000000076000000280000001000
          000010000000010004000000000080000000C40E0000C40E0000100000000000
          000000000000000080000080000000808000800000008000800080800000C0C0
          C000808080000000FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFF
          FF00777777778777777777777770087777777777770000877777777770000007
          7777777777700877777777777770087777777777777008777777777777700877
          7777777777700877777777777770087777777777777008777777777777800887
          7777777770000007777777777700007777777777777007777777777777777777
          7777}
        OnMouseDown = Image1MouseDown
        OnMouseMove = Image2MouseMove
        OnMouseUp = Image1MouseUp
      end
      object PosX: TSpinEdit
        Left = 40
        Top = 14
        Width = 65
        Height = 22
        MaxValue = 0
        MinValue = 0
        TabOrder = 0
        Value = 0
        OnChange = PosXChange
      end
      object PosY: TSpinEdit
        Left = 40
        Top = 44
        Width = 65
        Height = 22
        MaxValue = 0
        MinValue = 0
        TabOrder = 1
        Value = 0
        OnChange = PosXChange
      end
      object cbForeground: TCheckBox
        Left = 144
        Top = 80
        Width = 81
        Height = 17
        Caption = 'Avant plan'
        TabOrder = 2
        OnClick = cbForegroundClick
      end
      object PosZ: TSpinEdit
        Left = 40
        Top = 76
        Width = 65
        Height = 22
        Enabled = False
        MaxValue = 0
        MinValue = 0
        TabOrder = 3
        Value = 0
        OnChange = PosXChange
      end
    end
    object TabSheet3: TTabSheet
      Caption = 'Origine'
      ImageIndex = 3
      object Label8: TLabel
        Left = 16
        Top = 16
        Width = 7
        Height = 13
        Caption = 'X'
      end
      object Label9: TLabel
        Left = 16
        Top = 48
        Width = 7
        Height = 13
        Caption = 'Y'
      end
      object Image3: TImage
        Left = 112
        Top = 16
        Width = 16
        Height = 16
        AutoSize = True
        Picture.Data = {
          07544269746D6170F6000000424DF60000000000000076000000280000001000
          000010000000010004000000000080000000C40E0000C40E0000100000000000
          000000000000000080000080000000808000800000008000800080800000C0C0
          C000808080000000FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFF
          FF00777777778777777777777770087777777777770000877777777770000007
          7777777777700877877777708770087708777700888008880087700000000000
          0008700000000000000777008770087700777770777008770777777777800887
          7777777770000007777777777700007777777777777007777777777777777777
          7777}
        OnMouseDown = Image1MouseDown
        OnMouseMove = Image3MouseMove
        OnMouseUp = Image1MouseUp
      end
      object OrgY: TSpinEdit
        Left = 40
        Top = 44
        Width = 65
        Height = 22
        MaxValue = 0
        MinValue = 0
        TabOrder = 0
        Value = 0
        OnChange = OrgXChange
      end
      object OrgX: TSpinEdit
        Left = 40
        Top = 14
        Width = 65
        Height = 22
        MaxValue = 0
        MinValue = 0
        TabOrder = 1
        Value = 0
        OnChange = OrgXChange
      end
      object Button1: TButton
        Left = 136
        Top = 16
        Width = 81
        Height = 25
        Caption = 'Centrer l'#39'image'
        TabOrder = 2
        OnClick = Button1Click
      end
    end
    object Effets: TTabSheet
      Caption = 'Effets'
      ImageIndex = 2
      object Label2: TLabel
        Left = 16
        Top = 42
        Width = 30
        Height = 13
        Caption = 'Visible'
      end
      object Label11: TLabel
        Left = 16
        Top = 66
        Width = 47
        Height = 13
        Caption = 'Indicateur'
      end
      object Label12: TLabel
        Left = 8
        Top = 10
        Width = 73
        Height = 13
        Caption = 'Retournement :'
      end
      object cbSwap: TCheckBox
        Left = 88
        Top = 8
        Width = 73
        Height = 17
        Caption = 'horizontal'
        TabOrder = 0
        OnClick = cbSwapClick
      end
      object cbFlip: TCheckBox
        Left = 168
        Top = 8
        Width = 57
        Height = 17
        Caption = 'vertical'
        TabOrder = 1
        OnClick = cbFlipClick
      end
      object cbShow: TComboBox
        Left = 72
        Top = 62
        Width = 145
        Height = 21
        Style = csDropDownList
        ItemHeight = 13
        TabOrder = 2
        OnChange = cbShowChange
      end
      object cbVisible: TComboBox
        Left = 72
        Top = 40
        Width = 145
        Height = 21
        Style = csDropDownList
        ItemHeight = 13
        TabOrder = 3
        OnChange = cbVisibleChange
        Items.Strings = (
          'Toujours'
          'Si l'#39'indicateur est VRAI'
          'Si l'#39'indicateur est FAUX')
      end
      object cbAutoFlip: TCheckBox
        Left = 72
        Top = 88
        Width = 145
        Height = 17
        Caption = 'l'#39'inverser quand on clique'
        TabOrder = 4
        OnClick = cbAutoFlipClick
      end
    end
    object TabSheet2: TTabSheet
      Caption = 'Tableau'
      ImageIndex = 1
      object Label6: TLabel
        Left = 118
        Top = 48
        Width = 5
        Height = 13
        Caption = 'x'
      end
      object Label1: TLabel
        Left = 8
        Top = 16
        Width = 54
        Height = 13
        Caption = 'Dimensions'
      end
      object Label5: TLabel
        Left = 118
        Top = 24
        Width = 5
        Height = 13
        Caption = 'x'
      end
      object SpeedButton5: TSpeedButton
        Left = 184
        Top = 16
        Width = 23
        Height = 22
        Caption = #239
        Font.Charset = SYMBOL_CHARSET
        Font.Color = clWindowText
        Font.Height = -16
        Font.Name = 'Wingdings'
        Font.Style = []
        ParentFont = False
        OnClick = SpeedButton5Click
      end
      object SpeedButton6: TSpeedButton
        Tag = 2
        Left = 210
        Top = 48
        Width = 23
        Height = 22
        Caption = #242
        Font.Charset = SYMBOL_CHARSET
        Font.Color = clWindowText
        Font.Height = -16
        Font.Name = 'Wingdings'
        Font.Style = []
        ParentFont = False
        OnClick = SpeedButton6Click
      end
      object SpeedButton7: TSpeedButton
        Tag = 2
        Left = 210
        Top = 16
        Width = 23
        Height = 22
        Caption = #240
        Font.Charset = SYMBOL_CHARSET
        Font.Color = clWindowText
        Font.Height = -16
        Font.Name = 'Wingdings'
        Font.Style = []
        ParentFont = False
        OnClick = SpeedButton5Click
      end
      object SpeedButton8: TSpeedButton
        Left = 184
        Top = 48
        Width = 23
        Height = 22
        Caption = #241
        Font.Charset = SYMBOL_CHARSET
        Font.Color = clWindowText
        Font.Height = -16
        Font.Name = 'Wingdings'
        Font.Style = []
        ParentFont = False
        OnClick = SpeedButton6Click
      end
      object seStepX: TSpinEdit
        Left = 128
        Top = 16
        Width = 49
        Height = 22
        MaxValue = 0
        MinValue = 0
        TabOrder = 2
        Value = 1
        OnChange = seStepYChange
      end
      object TabWidth: TSpinEdit
        Left = 72
        Top = 16
        Width = 41
        Height = 22
        MaxValue = 100
        MinValue = 1
        TabOrder = 0
        Value = 1
        OnChange = seStepYChange
      end
      object TabHeight: TSpinEdit
        Left = 72
        Top = 48
        Width = 41
        Height = 22
        MaxValue = 100
        MinValue = 1
        TabOrder = 1
        Value = 1
        OnChange = seStepYChange
      end
      object seStepY: TSpinEdit
        Left = 128
        Top = 48
        Width = 49
        Height = 22
        MaxValue = 0
        MinValue = 0
        TabOrder = 3
        Value = 1
        OnChange = seStepYChange
      end
      object cbDouble: TCheckBox
        Left = 128
        Top = 80
        Width = 97
        Height = 17
        Caption = 'rapport 1 pour 2'
        TabOrder = 4
        OnClick = cbDoubleClick
      end
    end
    object TabSheet4: TTabSheet
      Caption = 'Texte'
      ImageIndex = 4
      object Label10: TLabel
        Left = 8
        Top = 56
        Width = 131
        Height = 13
        Caption = 'Texte ou identifiant du texte'
      end
      object edText: TEdit
        Left = 8
        Top = 72
        Width = 217
        Height = 21
        Enabled = False
        TabOrder = 0
        OnChange = edTextChange
      end
      object cbStaticText: TCheckBox
        Left = 8
        Top = 8
        Width = 137
        Height = 17
        Caption = 'Zone de texte statique'
        TabOrder = 1
        OnClick = cbStaticTextClick
      end
      object cbServerRequest: TCheckBox
        Left = 8
        Top = 32
        Width = 193
        Height = 17
        Caption = 'Identifiant envoy'#233' au serveur'
        Enabled = False
        TabOrder = 2
        OnClick = cbServerRequestClick
      end
    end
  end
end