From c0dba128831ea907252ed4df93d10f9e3cd9dd73 Mon Sep 17 00:00:00 2001
From: Ansgar Becker <anse@heidisql.com>
Date: Wed, 12 Dec 2018 20:34:56 +0100
Subject: [PATCH] Display cursor position in grid popup text editor

---
 out/locale/en/LC_MESSAGES/default.po | 6 +++---
 source/texteditor.pas                | 7 +++++--
 2 files changed, 8 insertions(+), 5 deletions(-)

diff --git a/out/locale/en/LC_MESSAGES/default.po b/out/locale/en/LC_MESSAGES/default.po
index 1e619b50..c7db03e9 100644
--- a/out/locale/en/LC_MESSAGES/default.po
+++ b/out/locale/en/LC_MESSAGES/default.po
@@ -7,7 +7,7 @@ msgid ""
 msgstr ""
 "Project-Id-Version: HeidiSQL\n"
 "POT-Creation-Date: 2012-11-05 21:40\n"
-"PO-Revision-Date: 2018-12-12 20:04+0100\n"
+"PO-Revision-Date: 2018-12-12 20:34+0100\n"
 "Last-Translator: Ansgar Becker <anse@heidisql.com>\n"
 "Language-Team: English (http://www.transifex.com/projects/p/heidisql/language/en/)\n"
 "MIME-Version: 1.0\n"
@@ -6297,5 +6297,5 @@ msgstr "Theme: \"%s\""
 msgid "Pixels per inch on current monitor: %d"
 msgstr "Pixels per inch on current monitor: %d"
 
-msgid "%s characters (max: %s), %s lines"
-msgstr "%s characters (max: %s), %s lines"
+msgid "%s characters (max: %s), %s lines, cursor at %s"
+msgstr "%s characters (max: %s), %s lines, cursor at %s"
diff --git a/source/texteditor.pas b/source/texteditor.pas
index 7cc622b2..ceeb92f3 100644
--- a/source/texteditor.pas
+++ b/source/texteditor.pas
@@ -121,7 +121,7 @@ procedure TfrmTextEditor.TimerMemoChangeTimer(Sender: TObject);
 var
   Lines: Cardinal;
   TextLen: Integer;
-  MaxLen: String;
+  MaxLen, CursorPos: String;
 begin
   // Timer based onchange handler, so we don't scan the whole text on every typed character
   TimerMemoChange.Enabled := False;
@@ -134,7 +134,8 @@ begin
     Lines := 0
   else
     Lines := CountLineBreaks(FmemoText.Text) + 1;
-  lblTextLength.Caption := f_('%s characters (max: %s), %s lines', [FormatNumber(TextLen), MaxLen, FormatNumber(Lines)]);
+  CursorPos := FormatNumber(FmemoText.CaretPos.X+1) + ' : ' + FormatNumber(FmemoText.CaretPos.Y+1);
+  lblTextLength.Caption := f_('%s characters (max: %s), %s lines, cursor at %s', [FormatNumber(TextLen), MaxLen, FormatNumber(Lines), CursorPos]);
 end;
 
 
@@ -232,6 +233,8 @@ end;
 procedure TfrmTextEditor.memoTextKeyDown(Sender: TObject; var Key: Word; Shift:
     TShiftState);
 begin
+  TimerMemoChange.Enabled := False;
+  TimerMemoChange.Enabled := True;
   case Key of
     // Cancel by Escape
     VK_ESCAPE: btnCancelClick(Sender);