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

TextEditor: Do not draw top limit of cursor highlight on the first line and bottom limit on the last line.

Browse source 
[GB.FORM.EDITOR]
* NEW: TextEditor: Do not draw top limit of cursor highlight on the first line.
* NEW: TextEditor: Do not draw bottom limit of cursor highlight on the last line.
This commit is contained in:
Benoît Minisini 2023-11-06 12:15:50 +01:00
parent 87d2420aef
commit c0603701f7
1 changed files with 4 additions and 9 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

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

@ -1455,8 +1455,6 @@ Private Sub DrawLine(X As Integer, Y As Integer, Width As Integer, Height As Int
TOP_DIFF:
If $hDoc.IsDiffRemoved(Row) Then
Paint.Background = $hTheme["Removed"].Color
@ -1508,8 +1506,6 @@ TOP_DIFF:
HIGHLIGHT_RECT:
If Y1 > Y2 Or If Y1 = Y2 And X1 > X2 Then
Swap X1, X2
Swap Y1, Y2
@ -1604,7 +1600,6 @@ Public Sub _PaintRow(Row As Integer, X As Integer, Y As Integer)
End
Private Sub DrawMargin(X As Integer, Y As Integer, Width As Integer, Height As Integer, Row As Integer)
Dim iCol As Integer
@ -3688,9 +3683,9 @@ Public Sub View_Draw()
If HR Then
XX += $MW - $iWidthModified
Paint.FillRect(XX, YR, $iWidth, 1, $iMarginColor)
Paint.FillRect(XX, YR + HR - 1, $iWidth, 1, $iMarginColor)
Paint.FillRect(XX, YR + 1, $iWidth, HR - 2, $iCurrentColor)
Paint.FillRect(XX, YR, $iWidth, HR, $iCurrentColor)
If $Y > 0 Then Paint.FillRect(XX, YR, $iWidth, 1, $iMarginColor)
If $Y < $hDoc.Max Then Paint.FillRect(XX, YR + HR - 1, $iWidth, 1, $iMarginColor)
Endif
$hTimerCacheLine.Stop
@ -6754,7 +6749,7 @@ End
Private Function Max_Read() As Integer
Return Count_Read() - 1
Return $hDoc.Max
End