From dae8c3d271b74817ed34f14666251352368c9922 Mon Sep 17 00:00:00 2001 From: gambas Date: Wed, 2 Sep 2020 20:08:28 +0200 Subject: [PATCH] Make compiler and runtime errors tooltips more readable. [DEVELOPMENT ENVIRONMENT] * BUG: Make compiler and runtime errors tooltips more readable. --- app/src/gambas3/.src/Exported/TextEditor.class | 13 ++++++++++--- 1 file changed, 10 insertions(+), 3 deletions(-) diff --git a/app/src/gambas3/.src/Exported/TextEditor.class b/app/src/gambas3/.src/Exported/TextEditor.class index 5beb550be..75bdbd931 100644 --- a/app/src/gambas3/.src/Exported/TextEditor.class +++ b/app/src/gambas3/.src/Exported/TextEditor.class @@ -249,7 +249,7 @@ Public Sub ShowMessageLabel(sStr As String, iStyle As Integer, Optional bBottom $hLabel = New TextLabel(hParent) As "Label" $hLabel.Ignore = True $hLabel.AutoResize = True - $hLabel.Border = If(bBottom, Border.None, Border.Plain) + $hLabel.Border = Border.None 'If(bBottom, Border.None, Border.Plain) $hLabel.Padding = 2 $hLabel.Wrap = False $hLabelTimer = New Timer As "LabelTimer" @@ -259,8 +259,15 @@ Public Sub ShowMessageLabel(sStr As String, iStyle As Integer, Optional bBottom ' $hLabel.Foreground = Me.Styles[Highlight.Normal].Color ' $hLabel.Background = Color.Merge(Me.Styles[iStyle].Color, Me.Styles[Highlight.Background].Color, 0.3) - $hLabel.Foreground = Me.Styles[iStyle].Color 'Me.Styles[Highlight.Normal].Color - $hLabel.Background = Me.Styles[Highlight.Background].Color + If iStyle = Highlight.Normal Then + $hLabel.Background = Me.Styles[Highlight.Background].Color + $hLabel.Foreground = Me.Styles[iStyle].Color + $hLabel.Border = Border.Plain + Else + $hLabel.Background = Me.Styles[iStyle].Color 'Me.Styles[Highlight.Normal].Color + $hLabel.Foreground = Me.Styles[Highlight.Background].Color + $hLabel.Border = Border.None + Endif $hLabel.Text = "  " & Replace(Replace(sStr, "

", " "), "
", " ") & "  " $bLabelBottom = bBottom