From c82fada99403d992df4eb839130937eb5bdfee49 Mon Sep 17 00:00:00 2001
From: Ansgar Becker <anse@heidisql.com>
Date: Wed, 17 Mar 2021 09:41:10 +0100
Subject: [PATCH] Issue #136: restore text selection after switching
 highlighter

---
 source/texteditor.pas | 6 ++++++
 1 file changed, 6 insertions(+)

diff --git a/source/texteditor.pas b/source/texteditor.pas
index dc99c591..c5354890 100644
--- a/source/texteditor.pas
+++ b/source/texteditor.pas
@@ -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);