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

TextEditor: Scroll to the top left when reinitializing the view.

Browse source 
[GB.FORM.EDITOR]
* NEW: TextEditor: Scroll to the top left when reinitializing the view.
* NEW: TextEditor: Highlight current tabulation context with a thinner line using the margin limit color.
This commit is contained in:
gambas 2021-03-22 22:59:18 +01:00
parent 6e445e480c
commit c2650ef40b
1 changed files with 4 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

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

@ -611,7 +611,8 @@ Private Sub Init()
Endif Endif
$bShowCursor = True $bShowCursor = True
GotoCenter(0, 0) Goto(0, 0)
Scroll(0, 0)
Refresh Refresh
@ -1365,7 +1366,7 @@ Private Sub DrawLine(X As Integer, Y As Integer, Width As Integer, Height As Int
If $bShowIndent Then If $bShowIndent Then
P = GetLineIndentMark(Row, sText) P = GetLineIndentMark(Row, sText)
D = $iSpaceWidth / 4 D = $iSpaceWidth / 8
If $IP And If Row >= $IY1 And If Row <= $IY2 Then IP = X + $IP If $IP And If Row >= $IY1 And If Row <= $IY2 Then IP = X + $IP
Paint.Translate($iSpaceWidth \ 2, 0) Paint.Translate($iSpaceWidth \ 2, 0)
@ -1390,7 +1391,7 @@ Private Sub DrawLine(X As Integer, Y As Integer, Width As Integer, Height As Int
If IP And If XX = IP Then If IP And If XX = IP Then
IP = 0 IP = 0
Paint.Rectangle(XX, Y, D, HH) Paint.Rectangle(XX, Y, D, HH)
Paint.Background = Color.SetAlpha($iMatchColor, 64) Paint.Background = $iMarginColor
Paint.Fill Paint.Fill
'Paint.FillRect(XX + D, Y, D, Height, $iMatchColor) 'Paint.FillRect(XX + D, Y, D, Height, $iMatchColor)
Else Else