[rm2k] - Bestimmter... "Patch" gesucht.

[The_question]

Verzeihung wegen des Doppelposts, aber ich hab das Problem grad selbst gelöst.

Ich hab ein bisschen im Code herumgewerkelt und mit den "Opaque"-Zeilen, bzw allgemein mit dem Code, ein wenig herumexperimentiert.
Die Lösung ist folgende:

Code:

inherited FormEvCmd10110: TFormEvCmd10110
  Caption = 'Show Message'
  ClientHeight = 133
  ClientWidth = 532
  OldCreateOrder = True
  OnCreate = FormCreate
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 12
  object TabControl1: TTabControl
    Left = 8
    Top = 8
    Width = 516
    Height = 86
    TabOrder = 0
    TabStop = False
    object FixedMemo1: TFixedMemo
      Left = 8
      Top = 7
      Width = 500
      Height = 70
      Cursor = crIBeam
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = 12
      Font.Name = 'Fixedsys'
      Font.Style = []
      ParentFont = False
      TabOrder = 0
      OnChange = FixedMemo1Change
      OnExit = FixedMemo1Exit
      OnKeyDown = FixedMemo1KeyDown
      OnMouseMove = FixedMemo1MouseMove
      OnCancel = FixedMemo1Cancel
      OnCtrlReturn = FixedMemo1CtrlReturn
    end
    object Line1: TOpaquePaintBox
      Left = 314
      Top = 12
      Width = 1
      Height = 50
      Cursor = crIBeam
      Opaque = False
      Color = clWindowText
      TabOrder = 1
      OnMouseDown = LineMouseDown
      OnPaint = LinePaint
    end
    object Line2: TOpaquePaintBox
      Left = 410
      Top = 12
      Width = 1
      Height = 50
      Cursor = crIBeam
      Opaque = False
      Color = clWindowText
      TabOrder = 2
      OnMouseDown = LineMouseDown
      OnPaint = LinePaint
    end
  end
  object ButtonOk: TButton
    Left = 241
    Top = 100
    Width = 89
    Height = 25
    Caption = '&Ok'
    Default = True
    ModalResult = 1
    TabOrder = 1
    OnClick = ButtonOkClick
  end
  object ButtonCancel: TButton
    Left = 338
    Top = 100
    Width = 89
    Height = 25
    Cancel = True
    Caption = 'Cancel'
    ModalResult = 2
    TabOrder = 2
  end
  object ButtonHelp: TButton
    Left = 435
    Top = 100
    Width = 89
    Height = 25
    Cancel = True
    Caption = '&Help'
    TabOrder = 2
    OnClick = ButtonHelpClick
  end
end

Das einzige, was noch etwas seltsam ist, ist, dass er ein bis zwei Sekunden zum Laden braucht.

Oh, und Strich 1 ist wirklich etwas zu weit links.
Das beheb ich auch mal eben.

EDIT: So, behoben.
Damit ist das Script jetzt auch für Vista + Heller Bildschirm geeignet.