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

TextEditor: First line can be folded again.

Browse source 
[GB.FORM.EDITOR]
* BUG: TextEditor: First line can be folded again.
* NEW: TextEditor: Draw folding signs a bit smaller.
This commit is contained in:
Benoît Minisini 2023-11-06 12:01:50 +01:00
parent f87f2a2cad
commit 87d2420aef
3 changed files with 4 additions and 4 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

@ -907,7 +907,7 @@ Private Sub HighlightLine(Y As Integer) As Boolean
aHighlight = $hHighlight.Run(Lines[Y] & "\n", aState)
.Colors = aHighlight
'If Y = 0 Then TextHighlighter.Limit = True
If Y = 0 Then $hHighlight.Limit = True
sTextAfter = Left($hHighlight.TextAfter, -1)
If sTextAfter And If Lines[Y] <> sTextAfter Then

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

@ -1691,7 +1691,7 @@ Private Sub DrawMargin(X As Integer, Y As Integer, Width As Integer, Height As I
Paint.MoveTo(SS, 0)
Paint.RelLineTo(0, S)
Endif
Paint.LineCap = Paint.LineCapRound
Paint.LineCap = Paint.LineCapButt
Paint.Stroke
Endif
Endif

4
comp/src/gb.form.editor/.src/test/FTestEditor.class
View file

@ -17,8 +17,8 @@ Private Sub Reload()
'TextEditor1.Highlight = "c"
'TextEditor1.Load("test.html")
TextHighlighter.Register("~/gambas/git/master/app/src/gambas3/highlight/conflict.highlight")
TextEditor1.Highlight = "conflict"
'TextHighlighter.Register("~/gambas/git/master/app/src/gambas3/highlight/conflict.highlight")
'TextEditor1.Highlight = "conflict"
'TextEditor1.Load("~/gambas/git/master/app/src/gambas3/.src/Project.module", True)
TextEditor1.Load("~/asap/omogen/master/src/kernel/guygle.cgi/.src/Actions/ActionMacro.module")
'TextEditor1.Load("~/gambas/issues/2427/20211224-165548234-theme.css")