luisgulo/gambas-source-code
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity

Make compiler and runtime errors tooltips more readable.

Browse source 
[DEVELOPMENT ENVIRONMENT]
* BUG: Make compiler and runtime errors tooltips more readable.
This commit is contained in:
gambas 2020-09-02 20:08:28 +02:00
parent d5c6ea0462
commit dae8c3d271
1 changed files with 10 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

13
app/src/gambas3/.src/Exported/TextEditor.class
View file

@ -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 = "&nbsp;&nbsp;" & Replace(Replace(sStr, "<p>", " "), "<br>", " ") & "&nbsp;&nbsp;"
$bLabelBottom = bBottom