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

TextEditor: Highlight the entire current line when it is wrapped.

Browse Source 
[GB.FORM.EDITOR]
* NEW: TextEditor: Highlight the entire current line when it is wrapped.
This commit is contained in:
gambas 2020-01-07 20:29:56 +01:00
parent f7e9724126
commit efa1771b4f
3 changed files with 4 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
comp/src/gb.form.editor/.component
View File

@ -1,5 +1,5 @@
[Component]
Key=gb.form.editor
Version=3.13.90
Version=3.14.90
Needs=Form
Requires=gb.eval.highlight,gb.util

2
comp/src/gb.form.editor/.project
View File

@ -2,7 +2,7 @@
Title=Text editor with syntax highlighting
Startup=FTestEditor
Icon=.hidden/control/texteditor.png
Version=3.13.90
Version=3.14.90
VersionFile=1
Component=gb.image
Component=gb.gui

3
comp/src/gb.form.editor/.src/TextEditor.class
View File

@ -903,7 +903,8 @@ Private Sub DrawLine(X As Integer, Y As Integer, Width As Integer, Height As Int
If Row = $iStopLine Then
Paint.FillRect(X, Y, Width, Height, $hStyles[Highlight.Current].Color)
Else If $bShowCurrent And If Row = $Y Then
Paint.FillRect(X, Y + $XY.Y, Width, H, $hStyles[Highlight.CurrentLine].Color)
'Paint.FillRect(X, Y + $XY.Y, Width, H, $hStyles[Highlight.CurrentLine].Color)
Paint.FillRect(X, Y, Width, Height, $hStyles[Highlight.CurrentLine].Color)
Endif
hInfo = $hDoc.Info(Row)