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

Display cursor position in grid popup text editor

Browse Source
This commit is contained in:
Ansgar Becker
2018-12-12 20:34:56 +01:00
parent 0fb66ac295
commit c0dba12883
2 changed files with 8 additions and 5 deletions
Download Patch File Download Diff File Expand all files Collapse all files

6
out/locale/en/LC_MESSAGES/default.po
View File

@ -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"

7
source/texteditor.pas
View File

@ -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);