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

[The_question]

Wäre übrigens mal interessant einen Screenie von zu sehen.

...

Unten hab ichs mal eben in Paint eingefärbt.

(Hm, dabei kommt mir eine interessante, andere Lösung. Im Code eventuell den BG der Messagebox einfärben?)

@Ascare: Ich versuch deine Lösung mal später, jetzt drängt die Zeit.
Danke jedenfalls.

[GSandSDS]

Auf dem Bild sind die Linien bei mir auch oben, zwar blass, aber immer noch recht deutlich zu erkennen. Vielleicht liegt's wirklich bei dir am Monitor bzw. dessen Einstellung. Ich kann mir schon vorstellen, dass das irgendwann augenkrebsig wird da hinzustarren oder man halt am Ende gar nichts mehr sieht.

[Kelven]

Ich sehe die Linien auch, wobei sie wie bei SDS sehr blass sind. Wenn sich das Bild nicht im Zentrum vom Bildschirm (TFT) befindet, kann man die Linien gar nicht sehen. Aber daran hab ich mich schon so gewöhnt, dass es mich nicht mehr stört. ^^

[Sgt. Pepper]

Unten hab ichs mal eben in Paint eingefärbt.

(Hm, dabei kommt mir eine interessante, andere Lösung. Im Code eventuell den BG der Messagebox einfärben?)

@Ascare: Ich versuch deine Lösung mal später, jetzt drängt die Zeit.
Danke jedenfalls.

...

Wenn du die Linien nicht siehst, dann ist das definitv ein Monitorseitiges Problem. Ich seh die Linien recht deutlich. Bei manchen TFTs ist bei der größten Kontraststufe der hellere Farbbereich zusammengezogen, sprich ab einer gewissen Helligkeit wird alles heller als x weiß dargestellt. Deshalb empfehl ich die am Helligkeit und Kontrastregler zu drehen (metaphorisch, moderne TFTs besitzen sicher keine Analogen Regler mehr (Haben sie sicher auch nie. Ich glaub nicht mal CRTs haben sowas besessen(Schade eigentlich, fänd ich cool))). Wenn ich bei mir den Kontrast auf über 90 (Prozent? NA) stelle, dann seh ich die Geraden auch nicht mehr.

[Beril]

Die Linien lassen sich auch via ResHacker verändern.
In der RM2000.exe findet sich unter RCData -> TFORMEVCMD10110 das object Line 1 und 2. Und da einen Wert für Color...
Was genau man da allerdings für Farboptionen hat weiß ich nicht. Aber "clWindowText" sollte schwarz sein.

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