'TextHighlighter.CanRewrite' is now dynamic. 'TextHighlighter._Register()' is now 'TextHighlighter._RegisterColor()'.

[GB.FORM.EDITOR]
* BUG: 'TextHighlighter.CanRewrite' is now dynamic.
* BUG: 'TextHighlighter._Register()' is now 'TextHighlighter._RegisterColor()'.
This commit is contained in:
Benoît Minisini 2023-11-01 18:14:38 +01:00
parent 13be9a4a53
commit f3419c8786
2 changed files with 5 additions and 5 deletions

View file

@ -958,9 +958,9 @@ Private Sub StartHighlight() As Boolean
$bHighlighting = True
TextHighlighter.CanRewrite = True '_Mode.Name
$hHighlight.CanRewrite = True '_Mode.Name
If Not $bHighlightAll And If TextHighlighter.CanRewrite Then
If Not $bHighlightAll And If $hHighlight.CanRewrite Then
For Each hView In GetAllViews()
If Not hView.ReadOnly And If hView.HasFocus Then
$iDoNotHighlightLine = hView.Line

View file

@ -183,9 +183,9 @@ Public Sub Purge(Optional KeepComment As Boolean, KeepString As Boolean, Replace
aColor = GetDoc().Info(_Line).Colors
If Not aColor Then Return sText
iComment = TextHighlighterTheme._Register("Comment")
iHelp = TextHighlighterTheme._Register("Documentation")
iString = TextHighlighterTheme._Register("String")
iComment = TextHighlighterTheme._RegisterColor("Comment")
iHelp = TextHighlighterTheme._RegisterColor("Documentation")
iString = TextHighlighterTheme._RegisterColor("String")
X = 1
For I = 0 To aColor.Max Step 2