From efa1771b4f02244884100bbd1f91dc2b380f70dd Mon Sep 17 00:00:00 2001 From: gambas Date: Tue, 7 Jan 2020 20:29:56 +0100 Subject: [PATCH] TextEditor: Highlight the entire current line when it is wrapped. [GB.FORM.EDITOR] * NEW: TextEditor: Highlight the entire current line when it is wrapped. --- comp/src/gb.form.editor/.component | 2 +- comp/src/gb.form.editor/.project | 2 +- comp/src/gb.form.editor/.src/TextEditor.class | 3 ++- 3 files changed, 4 insertions(+), 3 deletions(-) diff --git a/comp/src/gb.form.editor/.component b/comp/src/gb.form.editor/.component index ff3a84580..e039163ed 100644 --- a/comp/src/gb.form.editor/.component +++ b/comp/src/gb.form.editor/.component @@ -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 diff --git a/comp/src/gb.form.editor/.project b/comp/src/gb.form.editor/.project index cd69e236b..bb6dfe8e8 100644 --- a/comp/src/gb.form.editor/.project +++ b/comp/src/gb.form.editor/.project @@ -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 diff --git a/comp/src/gb.form.editor/.src/TextEditor.class b/comp/src/gb.form.editor/.src/TextEditor.class index 98eca09b1..65bfbfd4e 100644 --- a/comp/src/gb.form.editor/.src/TextEditor.class +++ b/comp/src/gb.form.editor/.src/TextEditor.class @@ -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)