[DEVELOPMENT ENVIRONMENT]
* BUG: Colorize error tooltips differently in the source code editor, so that they are visible with all possible tooltip background colors. git-svn-id: svn://localhost/gambas/trunk@4200 867c0c6c-44f3-4631-809d-bfa615b0a4ec
This commit is contained in:
parent
f21e2d7b17
commit
7f6e3260a2
@ -1428,7 +1428,7 @@ msgid ""
|
||||
"All your changes will be lost."
|
||||
msgstr ""
|
||||
|
||||
#: FEditor.class:2806
|
||||
#: FEditor.class:2809
|
||||
msgid "(Declarations)"
|
||||
msgstr ""
|
||||
|
||||
|
@ -2705,14 +2705,17 @@ Public Sub ShowWatchResult(sStr As String, X As Integer, Y As Integer)
|
||||
|
||||
Dim iColor As Integer
|
||||
|
||||
iColor = Color.TooltipBackground
|
||||
|
||||
If Left(sStr) = "!" Then
|
||||
sStr = Mid$(sStr, 2)
|
||||
If sStr = "Syntax error" Or If sStr = "Non terminated string" Or If sStr = "Unknown symbol" Then Return
|
||||
If sStr Begins "Unexpected " Then Return
|
||||
sStr = Design.MakeErrorMessage(sStr)
|
||||
iColor = Color.HSV(0, 64, 255)
|
||||
Else
|
||||
iColor = Color.TooltipBackground
|
||||
With Color[iColor]
|
||||
.Hue = 60
|
||||
iColor = .Color
|
||||
End With
|
||||
Endif
|
||||
|
||||
ShowMessageLabel(Html(sStr), X, Y, iColor)
|
||||
|
Loading…
x
Reference in New Issue
Block a user