PicPointerPatch - Bild-ID durch Variable angeben

[Cherry]

Hier einfach die Ressourcen:

Code:

inherited FormEvCmd11110: TFormEvCmd11110
  Caption = 'Show Picture'
  ClientHeight = 361
  ClientWidth = 353
  OldCreateOrder = True
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 12
  object TabControl1: TTabControl
    Left = 8
    Top = 8
    Width = 337
    Height = 313
    TabOrder = 0
    TabStop = False
    object GroupBox1: TFakeGroupBox
      Left = 8
      Top = 8
      Width = 89
      Height = 41
      Caption = 'Pic. Number'
      TabOrder = 0
      object DialEdit1: TDialEdit
        Left = 8
        Top = 15
        Width = 73
        Height = 20
        MaxValue = 100000
        MinValue = 1
        TabOrder = 0
        Value = 1
        OnChange = DialEdit1Change
      end
    end
    object GroupBox2: TFakeGroupBox
      Left = 104
      Top = 8
      Width = 225
      Height = 41
      Caption = 'Select Picture'
      TabOrder = 1
      object DashBox1: TDashBox
        Left = 8
        Top = 15
        Width = 209
        Height = 20
        ParentColor = False
        TabOrder = 0
        TabStop = True
        OnClick = DashBox1Click
      end
    end
    object GroupBox3: TFakeGroupBox
      Left = 8
      Top = 56
      Width = 321
      Height = 153
      Caption = 'Show Position (Centre Coord.)'
      TabOrder = 2
      object LabelA1X: TLabel
        Left = 104
        Top = 20
        Width = 13
        Height = 12
        Caption = 'X :'
      end
      object LabelA1Y: TLabel
        Left = 104
        Top = 44
        Width = 13
        Height = 12
        Caption = 'Y :'
      end
      object LabelA2X: TLabel
        Left = 104
        Top = 72
        Width = 13
        Height = 12
        Caption = 'X :'
      end
      object LabelA2Y: TLabel
        Left = 104
        Top = 96
        Width = 13
        Height = 12
        Caption = 'Y :'
      end
      object Bevel1: TBevel
        Left = 8
        Top = 112
        Width = 305
        Height = 9
        Shape = bsBottomLine
      end
      object RadioButtonA1: TRadioButton
        Left = 8
        Top = 18
        Width = 85
        Height = 17
        Caption = 'Position'
        TabOrder = 0
        OnClick = RadioButtonAClick
      end
      object RadioButtonA2: TRadioButton
        Tag = 1
        Left = 8
        Top = 70
        Width = 85
        Height = 17
        Caption = 'By Variable'
        TabOrder = 1
        OnClick = RadioButtonAClick
      end
      object DialEditA1X: TDialEdit
        Left = 128
        Top = 16
        Width = 73
        Height = 20
        MaxValue = 960
        MinValue = -640
        TabOrder = 2
        Value = 160
        OnChange = DialEditA1XChange
      end
      object DialEditA1Y: TDialEdit
        Left = 128
        Top = 40
        Width = 73
        Height = 20
        MaxValue = 720
        MinValue = -480
        TabOrder = 3
        Value = 120
        OnChange = DialEditA1YChange
      end
      object DashBoxA2X: TDashBox
        Left = 128
        Top = 68
        Width = 177
        Height = 20
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -12
        Font.Name = 'MS Serif'
        Font.Style = []
        ParentColor = False
        ParentFont = False
        TabOrder = 4
        TabStop = True
        OnClick = DashBoxA2XClick
      end
      object DashBoxA2Y: TDashBox
        Left = 128
        Top = 92
        Width = 177
        Height = 20
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -12
        Font.Name = 'MS Serif'
        Font.Style = []
        ParentColor = False
        ParentFont = False
        TabOrder = 5
        TabStop = True
        OnClick = DashBoxA2YClick
      end
      object CheckBox1: TCheckBox
        Left = 8
        Top = 128
        Width = 305
        Height = 17
        Caption = 'Move with Map'
        TabOrder = 6
        OnClick = CheckBox1Click
      end
    end
    object GroupBox6: TFakeGroupBox
      Left = 216
      Top = 216
      Width = 113
      Height = 41
      Caption = 'Transparent Colour'
      TabOrder = 3
      object RadioButtonB1: TRadioButton
        Left = 8
        Top = 17
        Width = 45
        Height = 17
        Caption = 'Stir'
        TabOrder = 0
        OnClick = RadioButtonBClick
      end
      object RadioButtonB2: TRadioButton
        Tag = 1
        Left = 60
        Top = 17
        Width = 45
        Height = 17
        Caption = 'None'
        TabOrder = 1
        OnClick = RadioButtonBClick
      end
    end
    object GroupBox7: TFakeGroupBox
      Left = 8
      Top = 264
      Width = 321
      Height = 41
      Caption = 'Additional Effect:'
      TabOrder = 4
      object DashBox2: TDashBox
        Left = 8
        Top = 15
        Width = 305
        Height = 20
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -12
        Font.Name = 'MS Serif'
        Font.Style = []
        ParentColor = False
        ParentFont = False
        TabOrder = 0
        TabStop = True
        OnClick = DashBox2Click
      end
    end
    object GroupBox4: TFakeGroupBox
      Left = 8
      Top = 216
      Width = 97
      Height = 41
      Caption = 'Magnification'
      TabOrder = 5
      object Label1: TLabel
        Left = 77
        Top = 20
        Width = 12
        Height = 12
        Caption = '%'
      end
      object DialEdit2: TDialEdit
        Left = 8
        Top = 15
        Width = 65
        Height = 20
        Increment = 5
        MaxValue = 100000
        MinValue = 0
        TabOrder = 0
        Value = 100
        OnChange = DialEdit2Change
      end
    end
    object GroupBox5: TFakeGroupBox
      Left = 112
      Top = 216
      Width = 97
      Height = 41
      Caption = 'Transparency'
      TabOrder = 6
      object Label2: TLabel
        Left = 77
        Top = 20
        Width = 12
        Height = 12
        Caption = '%'
      end
      object DialEdit3: TDialEdit
        Left = 8
        Top = 15
        Width = 65
        Height = 20
        Increment = 5
        MaxValue = 100000
        MinValue = 0
        TabOrder = 0
        Value = 0
        OnChange = DialEdit3Change
      end
    end
  end
  object ButtonOk: TButton
    Left = 64
    Top = 328
    Width = 89
    Height = 25
    Caption = '&Ok'
    Default = True
    ModalResult = 1
    TabOrder = 1
    OnClick = ButtonOkClick
  end
  object ButtonCancel: TButton
    Left = 160
    Top = 328
    Width = 89
    Height = 25
    Cancel = True
    Caption = 'Cancel'
    ModalResult = 2
    TabOrder = 2
  end
  object ButtonHelp: TButton
    Left = 256
    Top = 328
    Width = 89
    Height = 25
    Cancel = True
    Caption = '&Help'
    TabOrder = 3
    OnClick = ButtonHelpClick
  end
end

Code:

inherited FormEvCmd11120: TFormEvCmd11120
  Caption = 'Move Picture'
  ClientHeight = 377
  ClientWidth = 353
  OldCreateOrder = True
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 12
  object TabControl1: TTabControl
    Left = 8
    Top = 8
    Width = 337
    Height = 329
    TabOrder = 0
    TabStop = False
    object GroupBox1: TFakeGroupBox
      Left = 8
      Top = 8
      Width = 89
      Height = 41
      Caption = 'Pic. Number'
      TabOrder = 0
      object DialEdit1: TDialEdit
        Left = 8
        Top = 15
        Width = 73
        Height = 20
        MaxValue = 100000
        MinValue = 1
        TabOrder = 0
        Value = 1
        OnChange = DialEdit1Change
      end
    end
    object GroupBox2: TFakeGroupBox
      Left = 104
      Top = 8
      Width = 225
      Height = 41
      TabOrder = 1
    end
    object GroupBox3: TFakeGroupBox
      Left = 8
      Top = 56
      Width = 321
      Height = 121
      Caption = 'Place Position (Centre Coord.)'
      TabOrder = 2
      object LabelA1X: TLabel
        Left = 104
        Top = 20
        Width = 13
        Height = 12
        Caption = 'X :'
      end
      object LabelA1Y: TLabel
        Left = 104
        Top = 44
        Width = 13
        Height = 12
        Caption = 'Y :'
      end
      object LabelA2X: TLabel
        Left = 104
        Top = 72
        Width = 13
        Height = 12
        Caption = 'X :'
      end
      object LabelA2Y: TLabel
        Left = 104
        Top = 96
        Width = 13
        Height = 12
        Caption = 'Y :'
      end
      object RadioButtonA1: TRadioButton
        Left = 8
        Top = 18
        Width = 85
        Height = 17
        Caption = 'Position'
        TabOrder = 0
        OnClick = RadioButtonAClick
      end
      object RadioButtonA2: TRadioButton
        Tag = 1
        Left = 8
        Top = 70
        Width = 85
        Height = 17
        Caption = 'By Variable'
        TabOrder = 1
        OnClick = RadioButtonAClick
      end
      object DialEditA1X: TDialEdit
        Left = 128
        Top = 16
        Width = 73
        Height = 20
        MaxValue = 960
        MinValue = -640
        TabOrder = 2
        Value = 160
        OnChange = DialEditA1XChange
      end
      object DialEditA1Y: TDialEdit
        Left = 128
        Top = 40
        Width = 73
        Height = 20
        MaxValue = 720
        MinValue = -480
        TabOrder = 3
        Value = 120
        OnChange = DialEditA1YChange
      end
      object DashBoxA2X: TDashBox
        Left = 128
        Top = 68
        Width = 177
        Height = 20
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -12
        Font.Name = 'MS Serif'
        Font.Style = []
        ParentColor = False
        ParentFont = False
        TabOrder = 4
        TabStop = True
        OnClick = DashBoxA2XClick
      end
      object DashBoxA2Y: TDashBox
        Left = 128
        Top = 92
        Width = 177
        Height = 20
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -12
        Font.Name = 'MS Serif'
        Font.Style = []
        ParentColor = False
        ParentFont = False
        TabOrder = 5
        TabStop = True
        OnClick = DashBoxA2YClick
      end
    end
    object GroupBox4: TFakeGroupBox
      Left = 8
      Top = 184
      Width = 97
      Height = 41
      Caption = 'Magnification'
      TabOrder = 3
      object Label6: TLabel
        Left = 77
        Top = 20
        Width = 12
        Height = 12
        Caption = '%'
      end
      object DialEdit2: TDialEdit
        Left = 8
        Top = 15
        Width = 65
        Height = 20
        Increment = 5
        MaxValue = 100000
        MinValue = 0
        TabOrder = 0
        Value = 100
        OnChange = DialEdit2Change
      end
    end
    object GroupBox5: TFakeGroupBox
      Left = 112
      Top = 184
      Width = 97
      Height = 41
      Caption = 'Transparency'
      TabOrder = 4
      object Label14: TLabel
        Left = 77
        Top = 20
        Width = 12
        Height = 12
        Caption = '%'
      end
      object DialEdit3: TDialEdit
        Left = 8
        Top = 15
        Width = 65
        Height = 20
        Increment = 5
        MaxValue = 100000
        MinValue = 0
        TabOrder = 0
        Value = 0
        OnChange = DialEdit3Change
      end
    end
    object GroupBox6: TFakeGroupBox
      Left = 216
      Top = 184
      Width = 113
      Height = 41
      TabOrder = 5
    end
    object GroupBox7: TFakeGroupBox
      Left = 8
      Top = 232
      Width = 321
      Height = 41
      Caption = 'Additional Effect:'
      TabOrder = 6
      object DashBox2: TDashBox
        Left = 8
        Top = 15
        Width = 305
        Height = 20
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -12
        Font.Name = 'MS Serif'
        Font.Style = []
        ParentColor = False
        ParentFont = False
        TabOrder = 0
        TabStop = True
        OnClick = DashBox2Click
      end
    end
    object GroupBox8: TFakeGroupBox
      Left = 8
      Top = 280
      Width = 137
      Height = 41
      Caption = 'Movement Time'
      TabOrder = 7
      object Label1: TLabel
        Left = 85
        Top = 19
        Width = 42
        Height = 12
        Caption = 'x0.1 Sec'
      end
      object DialEdit4: TDialEdit
        Left = 8
        Top = 15
        Width = 73
        Height = 20
        MaxValue = 1000
        MinValue = 0
        TabOrder = 0
        Value = 10
        OnChange = DialEdit4Change
      end
    end
    object GroupBox9: TFakeGroupBox
      Left = 152
      Top = 280
      Width = 177
      Height = 41
      Caption = 'Options'
      TabOrder = 8
      object CheckBox1: TCheckBox
        Left = 8
        Top = 16
        Width = 161
        Height = 17
        Caption = 'Wait Until Done'
        TabOrder = 0
        OnClick = CheckBox1Click
      end
    end
  end
  object ButtonOk: TButton
    Left = 64
    Top = 344
    Width = 89
    Height = 25
    Caption = '&Ok'
    Default = True
    ModalResult = 1
    TabOrder = 1
    OnClick = ButtonOkClick
  end
  object ButtonCancel: TButton
    Left = 160
    Top = 344
    Width = 89
    Height = 25
    Cancel = True
    Caption = 'Cancel'
    ModalResult = 2
    TabOrder = 2
  end
  object ButtonHelp: TButton
    Left = 256
    Top = 344
    Width = 89
    Height = 25
    Cancel = True
    Caption = '&Help'
    TabOrder = 3
    OnClick = ButtonHelpClick
  end
end

Code:

inherited FormEvCmd11130: TFormEvCmd11130
  Caption = 'Erase Pic'
  ClientHeight = 105
  ClientWidth = 313
  OldCreateOrder = True
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 12
  object TabControl1: TTabControl
    Left = 8
    Top = 8
    Width = 297
    Height = 57
    TabOrder = 0
    TabStop = False
    object GroupBox1: TFakeGroupBox
      Left = 8
      Top = 8
      Width = 89
      Height = 41
      Caption = 'Pic. Number'
      TabOrder = 0
      object DialEdit1: TDialEdit
        Left = 8
        Top = 15
        Width = 73
        Height = 20
        MaxValue = 100000
        MinValue = 1
        TabOrder = 0
        Value = 1
        OnChange = DialEdit1Change
      end
    end
    object GroupBox2: TFakeGroupBox
      Left = 104
      Top = 8
      Width = 185
      Height = 41
      TabOrder = 1
    end
  end
  object ButtonOk: TButton
    Left = 24
    Top = 72
    Width = 89
    Height = 25
    Caption = '&Ok'
    Default = True
    ModalResult = 1
    TabOrder = 1
    OnClick = ButtonOkClick
  end
  object ButtonCancel: TButton
    Left = 120
    Top = 72
    Width = 89
    Height = 25
    Cancel = True
    Caption = 'Cancel'
    ModalResult = 2
    TabOrder = 2
  end
  object ButtonHelp: TButton
    Left = 216
    Top = 72
    Width = 89
    Height = 25
    Cancel = True
    Caption = '&Help'
    TabOrder = 3
    OnClick = ButtonHelpClick
  end
end

[lokipoki]

Habs hin bekommen. Sorry nochmal, wegen der Fragerei. Hab mir auch gleich ne Kopie angelegt.8)