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

Update label on text editor after caret was moved by mouse click

Browse Source
This commit is contained in:
Ansgar Becker
2018-12-13 19:09:38 +01:00
parent 5c79f6ddf9
commit c1ac36561e
1 changed files with 8 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

8
source/texteditor.pas
View File

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