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

TextEditor: 'Keywords' property works again.

Browse source 
[GB.FORM.EDITOR]
* BUG: TextEditor: 'Keywords' property works again.
This commit is contained in:
Benoît Minisini 2023-11-02 21:17:23 +01:00
parent 6b15686060
commit 982f48f0bb
2 changed files with 1 additions and 9 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
comp/src/gb.form.editor/.src/CDocument.class
View file

@ -1048,7 +1048,7 @@ End
Private Function Keywords_Read() As String[] Private Function Keywords_Read() As String[]
Try Return $hHighlight.GetKeywords() Try Return $hHighlight.Keywords
End End

8
comp/src/gb.form.editor/.src/TextEditor.class
View file

@ -1026,8 +1026,6 @@ Fast Private Sub DrawHighlightedText(Row As Integer, sText As String, aColor As
' Endif ' Endif
NEXT_PATTERN: NEXT_PATTERN:
P += iLen P += iLen
XX = X2 XX = X2
@ -1050,8 +1048,6 @@ Fast Private Sub DrawHighlightedText(Row As Integer, sText As String, aColor As
DRAW_TEXT: DRAW_TEXT:
iCol = hStyle.Color iCol = hStyle.Color
Paint.Background = iCol Paint.Background = iCol
YT = YY + $iAscent + $LP YT = YY + $iAscent + $LP
@ -1080,8 +1076,6 @@ DRAW_TEXT:
DRAW_TEXT_WITH_TAB: DRAW_TEXT_WITH_TAB:
iCol = hStyle.Color iCol = hStyle.Color
Paint.Background = iCol Paint.Background = iCol
If hStyle.Bold Then If hStyle.Bold Then
@ -1113,8 +1107,6 @@ DRAW_TEXT_WITH_TAB:
CALC_LEVEL_BG: CALC_LEVEL_BG:
If iLevel Then If iLevel Then
iBg = Color.SetAlpha(Color.Black, 255 - iLevel * 16) iBg = Color.SetAlpha(Color.Black, 255 - iLevel * 16)
Else Else