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

[Cherry]

Ich würds einfach mit Farbnummern probieren

z.B. 255 = intensives Blau, 65280 = intensives grün, 16711680 = intensives rot, 0 = schwarz

[The_question]

Ich würds einfach mit Farbnummern probieren

z.B. 255 = intensives Blau, 65280 = intensives grün, 16711680 = intensives rot, 0 = schwarz

...

Mit bloßen nummern funktioniert's leider nicht.
Funktioniert aber auch nicht, wenn ich beispielsweise die Farbe des WindowText's einfüge.

Hm, sollte alles nicht helfen muss ich wohl an meinen Monitoreinstellungen herumbasteln..
Aber das muss doch irgendwie möglich sein. :/

Ah, und Ascare, deine Methode funktioniert auch nicht so richtig, deine Striche seh ich genau so wenig. :/

[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.