Schrift im Eventeditor kleiner machen?

[natix]

Hab den Maker grad nicht zur Hand, zu Hause schau ich mir das an und sag dir wie es geht. Ist kein Problem, das zu machen.

mfG Cherry

...

Das wär super

[Cherry]

Du öffnest die RPG2000/3.exe mit dem Resource Hacker und gehst zu RCDATA\TFORMEDEVENT\0.

Da suchst du diese Stelle:

Code:

        object ListBox1: TListBox
          Left = 8
          Top = 20
          Width = 409
          Height = 376
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clWindowText
          Font.Height = 12
          Font.Name = 'MS Serif'
          Font.Style = []
          ImeMode = imDisable
          IntegralHeight = True
          ItemHeight = 12
          ParentFont = False
          PopupMenu = PopupMenu1
          TabOrder = 0
          OnDblClick = ListBox1DblClick
          OnKeyDown = ListBox1KeyDown
          OnMouseDown = ListBox1MouseDown
        end

...und änderst den Font.Height-Parameter sowie den ItemHeight-Parameter.

Dann gehst du zu TFORMEDMONGROUP und machst das selbe bei der Stelle:

Code:

        object ListBox1: TSmartListBox
          Left = 8
          Top = 52
          Width = 377
          Height = 100
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clWindowText
          Font.Height = 12
          Font.Name = 'MS Serif'
          Font.Style = []
          ImeMode = imDisable
          IntegralHeight = True
          ItemHeight = 12
          ParentFont = False
          PopupMenu = PopupMenu2
          TabOrder = 1
          OnDblClick = ListBox1DblClick
          OnKeyDown = ListBox1KeyDown
          OnMouseDown = ListBox1MouseDown
        end

...und schließlich zu TFORMEDCOMMONEVENT und dieser Stelle:

Code:

      object ListBox1: TListBox
        Left = 8
        Top = 20
        Width = 529
        Height = 364
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = 12
        Font.Name = 'MS Serif'
        Font.Style = []
        ImeMode = imDisable
        IntegralHeight = True
        ItemHeight = 12
        ParentFont = False
        PopupMenu = PopupMenu1
        TabOrder = 0
        OnDblClick = ListBox1DblClick
        OnKeyDown = ListBox1KeyDown
        OnMouseDown = ListBox1MouseDown
      end

Jeweils "Compile Script" und nachher halt speichern.

mfG Cherry