Leider kann ich nicht sagen, dass orange Cursor meinen Geschmack treffen.
Aber hier habe ich eine Weg, wie man Cursor orange färbt:
|
Jabaco Source
|
1
2
3
4
5
6
7
8
9
|
Public Sub Form_Load()
Dim orange As Long = RGB(255, 163, 0)
Dim black As Long = RGB(0, 0, 0)
Text1.BackColor = black
Text1.ForeColor = orange
' Text1.Parent.setCaretColor(orange)
Text1.Parent.setCaretColor(Not Orange)
End Sub
|
Beim "setCaretColor(orange)" kommt ein inverses orange heraus, das eher nach Türkis aussieht.
Daher habe ich die RGB-Bits als "Not orange" invertiert. Der Cursor sollte ja orange leuchten.
Merkwürdigerweise führt "Color.orange" statt "RGB(255, 163, 0)" nicht zum Ziel sondern wirft eine Runtime-Exception.
Das gehört noch zum unerforschten Java-Land ....
Gruß!
A1880