[2k3] Schriftlängenpatch ?

[Cherry]

Pack das bei TFORMEVCMD10110 zwischen die zwei "end"-Zeilen vor Object ButtonOk:

Code:

    object Line1: TOpaquePaintBox
      Left = 238
      Top = 12
      Width = 1
      Height = 50
      Cursor = crIBeam
      Opaque = True
      Color = clAppWorkSpace
      TabOrder = 1
      OnMouseDown = LineMouseDown
      OnPaint = LinePaint
    end
    object Line2: TOpaquePaintBox
      Left = 310
      Top = 12
      Width = 1
      Height = 50
      Cursor = crIBeam
      Opaque = True
      Color = clBtnShadow
      TabOrder = 2
      OnMouseDown = LineMouseDown
      OnPaint = LinePaint
    end

Falls es nachher eine Fehlermeldung gibt, nimm die OnMouseDown- und OnPaint-Zeilen raus, bei denen bin ich mir jetzt nicht ganz sicher.