From c1ac36561e96ce214693e4ba7ed2436d6ab0b58c Mon Sep 17 00:00:00 2001
From: Ansgar Becker <anse@heidisql.com>
Date: Thu, 13 Dec 2018 19:09:38 +0100
Subject: [PATCH] Update label on text editor after caret was moved by mouse
 click

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

diff --git a/source/texteditor.pas b/source/texteditor.pas
index 17d59be5..a4243dc1 100644
--- a/source/texteditor.pas
+++ b/source/texteditor.pas
@@ -43,6 +43,7 @@ type
     procedure FormShow(Sender: TObject);
     procedure memoTextChange(Sender: TObject);
     procedure memoTextKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState);
+    procedure memoTextClick(Sender: TObject);
     procedure FormCreate(Sender: TObject);
     procedure FormClose(Sender: TObject; var Action: TCloseAction);
     procedure SelectLinebreaks(Sender: TObject);
@@ -184,6 +185,7 @@ begin
   FmemoText.WantTabs := True;
   FmemoText.OnChange := memoTextChange;
   FmemoText.OnKeyDown := memoTextKeyDown;
+  FmemoText.OnClick := memoTextClick;
   // Use same text properties as in query/find/replace actions
   actSearchFind.Caption := MainForm.actQueryFind.Caption;
   actSearchFind.Hint := MainForm.actQueryFind.Hint;
@@ -244,6 +246,12 @@ begin
   end;
 end;
 
+procedure TfrmTextEditor.memoTextClick(Sender: TObject);
+begin
+  TimerMemoChange.Enabled := False;
+  TimerMemoChange.Enabled := True;
+end;
+
 procedure TfrmTextEditor.btnWrapClick(Sender: TObject);
 var
   WasModified: Boolean;