Programmwunsch und -erstellungsthread #2

[Cherry]

Da sind wir ja schon fast beim Thema, wo ich grade hinwill:

R.D. hat sich eben per ICQ beschwert, dass die Common-Event-Liste bei "Call Event" so klein ist und er ewig scrollen muss...

Hier kommt Abhilfe:

1. RPG2000.exe/RPG2003.exe im Resource Hacker öffnen
2. Zu RCDATA -> TFORMEVCMD12330 -> 0 gehen
3. Skript rechts durch das hier ersetzen:

Code:

inherited FormEvCmd12330: TFormEvCmd12330
  Top = 105
  Caption = 'Call Event'
  ClientHeight = 449
  ClientWidth = 337
  OldCreateOrder = True
  OnDestroy = FormDestroy
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 12
  object TabControl1: TTabControl
    Left = 8
    Top = 8
    Width = 321
    Height = 401
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -12
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
    TabOrder = 0
    TabStop = False
    object GroupBox1: TFakeGroupBox
      Left = 8
      Top = 8
      Width = 305
      Height = 385
      Caption = 'Call Event (as an interrupt)'
      TabOrder = 0
      object Label1: TLabel
        Left = 254
        Top = 288
        Width = 30
        Height = 12
        Caption = 'Page'
      end
      object Label2: TLabel
        Left = 206
        Top = 336
        Width = 68
        Height = 12
        Caption = 'Event Number'
      end
      object Label3: TLabel
        Left = 206
        Top = 360
        Width = 30
        Height = 12
        Caption = 'Page'
      end
      object RadioButton1: TRadioButton
        Left = 8
        Top = 16
        Width = 185
        Height = 17
        Caption = 'Common Events'
        TabOrder = 0
        OnClick = RadioButtonClick
      end
      object RadioButton2: TRadioButton
        Tag = 1
        Left = 8
        Top = 264
        Width = 185
        Height = 17
        Caption = 'Map Event (Direct designation)'
        TabOrder = 1
        OnClick = RadioButtonClick
      end
      object ComboBox1: TComboBox
        Left = 24
        Top = 36
        Width = 270
        Height = 220
        Style = csSimple
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -9
        Font.Name = 'Arial'
        Font.Style = []
        ItemHeight = 9
        ParentFont = False
        TabOrder = 2
        OnChange = ComboBox1Change
      end
      object ComboBox2: TComboBox
        Left = 24
        Top = 284
        Width = 153
        Height = 20
        Style = csDropDownList
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -12
        Font.Name = 'MS Serif'
        Font.Style = []
        ItemHeight = 12
        ParentFont = False
        TabOrder = 3
        OnChange = ComboBox2Change
        Items.Strings = (
          'this Event')
      end
      object DialEdit1: TDialEdit
        Left = 184
        Top = 284
        Width = 65
        Height = 20
        MaxValue = 1
        MinValue = 1
        TabOrder = 4
        Value = 1
        OnChange = DialEdit1Change
      end
      object RadioButton3: TRadioButton
        Tag = 2
        Left = 8
        Top = 312
        Width = 185
        Height = 17
        Caption = 'Map Event (Variable Designation)'
        TabOrder = 5
        OnClick = RadioButtonClick
      end
      object DashBox1: TDashBox
        Left = 24
        Top = 332
        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 = 6
        TabStop = True
        OnClick = DashBoxClick
      end
      object DashBox2: TDashBox
        Tag = 1
        Left = 24
        Top = 356
        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 = 7
        TabStop = True
        OnClick = DashBoxClick
      end
    end
  end
  object ButtonOk: TButton
    Left = 48
    Top = 416
    Width = 89
    Height = 25
    Caption = '&Ok'
    Default = True
    ModalResult = 1
    TabOrder = 1
    OnClick = ButtonOkClick
  end
  object ButtonCancel: TButton
    Left = 144
    Top = 416
    Width = 89
    Height = 25
    Cancel = True
    Caption = 'Cancel'
    ModalResult = 2
    TabOrder = 2
  end
  object ButtonHelp: TButton
    Left = 240
    Top = 416
    Width = 89
    Height = 25
    Cancel = True
    Caption = '&Help'
    TabOrder = 3
    OnClick = ButtonHelpClick
  end
end

4. "Compile Script" anklicken
5. File -> Save und beenden

Danach sieht das "Call Event"-Fenster so aus:



- 200 Pixel höher
- kleinere Schrift
- keine Dropdownbox mehr, sondern eine Liste
- man kann oben auch einfach den Beginn des Namens vom Event eintippen und er scrollt da hin
- breiter (aber nur aus Layoutgründen, die CE-Namen haben ja eine Längenbeschränkung)

mfG Cherry

[elvissteinjr]

Funktioniert bestens. Erleichtert und beschleunigt das Ganze enorm.
Mehr gibts nicht zu sagen, so wie man's vom Cherry erwartet: Top.

[MagicMaker]

Willst du die Sache mit der Liste auch im Ultimate unterbringen?

Find ich ziemlich brauchbar diese Variante.

[Cherry]

das kann man sogar jetzt schon, dank INI.

Musst nur die Combobox höher machen und ".Style = 0" setzen (oder 1? probiers^^)

Natürlich muss dann auch das Fenster größer werden und die anderen Elemente runterrücken.

[Cazic]

Hier kommt Abhilfe:

1. RPG2000.exe/RPG2003.exe im Resource Hacker öffnen
2. Zu RCDATA -> TFORMEVCMD12330 -> 0 gehen
3. Skript rechts durch das hier ersetzen:

Code:

inherited FormEvCmd12330: TFormEvCmd12330
  Top = 105
  Caption = 'Call Event'
  ClientHeight = 449
  ClientWidth = 337
  OldCreateOrder = True
  OnDestroy = FormDestroy
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 12
  object TabControl1: TTabControl
    Left = 8
    Top = 8
    Width = 321
    Height = 401
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -12
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
    TabOrder = 0
    TabStop = False
    object GroupBox1: TFakeGroupBox
      Left = 8
      Top = 8
      Width = 305
      Height = 385
      Caption = 'Call Event (as an interrupt)'
      TabOrder = 0
      object Label1: TLabel
        Left = 254
        Top = 288
        Width = 30
        Height = 12
        Caption = 'Page'
      end
      object Label2: TLabel
        Left = 206
        Top = 336
        Width = 68
        Height = 12
        Caption = 'Event Number'
      end
      object Label3: TLabel
        Left = 206
        Top = 360
        Width = 30
        Height = 12
        Caption = 'Page'
      end
      object RadioButton1: TRadioButton
        Left = 8
        Top = 16
        Width = 185
        Height = 17
        Caption = 'Common Events'
        TabOrder = 0
        OnClick = RadioButtonClick
      end
      object RadioButton2: TRadioButton
        Tag = 1
        Left = 8
        Top = 264
        Width = 185
        Height = 17
        Caption = 'Map Event (Direct designation)'
        TabOrder = 1
        OnClick = RadioButtonClick
      end
      object ComboBox1: TComboBox
        Left = 24
        Top = 36
        Width = 270
        Height = 220
        Style = csSimple
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -9
        Font.Name = 'Arial'
        Font.Style = []
        ItemHeight = 9
        ParentFont = False
        TabOrder = 2
        OnChange = ComboBox1Change
      end
      object ComboBox2: TComboBox
        Left = 24
        Top = 284
        Width = 153
        Height = 20
        Style = csDropDownList
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -12
        Font.Name = 'MS Serif'
        Font.Style = []
        ItemHeight = 12
        ParentFont = False
        TabOrder = 3
        OnChange = ComboBox2Change
        Items.Strings = (
          'this Event')
      end
      object DialEdit1: TDialEdit
        Left = 184
        Top = 284
        Width = 65
        Height = 20
        MaxValue = 1
        MinValue = 1
        TabOrder = 4
        Value = 1
        OnChange = DialEdit1Change
      end
      object RadioButton3: TRadioButton
        Tag = 2
        Left = 8
        Top = 312
        Width = 185
        Height = 17
        Caption = 'Map Event (Variable Designation)'
        TabOrder = 5
        OnClick = RadioButtonClick
      end
      object DashBox1: TDashBox
        Left = 24
        Top = 332
        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 = 6
        TabStop = True
        OnClick = DashBoxClick
      end
      object DashBox2: TDashBox
        Tag = 1
        Left = 24
        Top = 356
        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 = 7
        TabStop = True
        OnClick = DashBoxClick
      end
    end
  end
  object ButtonOk: TButton
    Left = 48
    Top = 416
    Width = 89
    Height = 25
    Caption = '&Ok'
    Default = True
    ModalResult = 1
    TabOrder = 1
    OnClick = ButtonOkClick
  end
  object ButtonCancel: TButton
    Left = 144
    Top = 416
    Width = 89
    Height = 25
    Cancel = True
    Caption = 'Cancel'
    ModalResult = 2
    TabOrder = 2
  end
  object ButtonHelp: TButton
    Left = 240
    Top = 416
    Width = 89
    Height = 25
    Cancel = True
    Caption = '&Help'
    TabOrder = 3
    OnClick = ButtonHelpClick
  end
end

4. "Compile Script" anklicken
5. File -> Save und beenden

...

Sehr cool, danke.