opensource/HeidiSQL
1
0
Fork 0
mirror of https://github.com/HeidiSQL/HeidiSQL.git synced 2025-08-26 11:17:57 +08:00
Code Issues Packages Projects Releases Wiki Activity

Issue #136: restore text selection after switching highlighter

Browse Source
This commit is contained in:
Ansgar Becker
2021-03-17 09:41:10 +01:00
parent ddea7e8b78
commit c82fada994
1 changed files with 6 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

6
source/texteditor.pas
View File

@ -302,8 +302,11 @@ procedure TfrmTextEditor.comboHighlighterSelect(Sender: TObject);
var
Highlighters: TSynHighlighterList;
i: Integer;
SelStart, SelLength: Integer;
begin
// Code highlighter selected
SelStart := MemoText.SelStart;
SelLength := MemoText.SelLength;
MemoText.Highlighter := nil;
FHighlighter.Free;
Highlighters := SynEditHighlighter.GetPlaceableHighlighters;
@ -311,8 +314,11 @@ begin
if comboHighlighter.Text = Highlighters[i].GetFriendlyLanguageName then begin
FHighlighter := Highlighters[i].Create(Self);
MemoText.Highlighter := FHighlighter;
Break;
end;
end;
MemoText.SelStart := SelStart;
MemoText.SelLength := SelLength;
end;
procedure TfrmTextEditor.btnLoadTextClick(Sender: TObject);