forks
/
dexed
mirror of https://gitlab.com/basile.b/dexed.git
1
0
Fork 0
Code Issues Packages Projects Releases Wiki Activity

editor position buffer on key up

This commit is contained in:
Basile Burg 2014-12-07 10:51:20 +01:00
parent 817944c2e6
commit 9a13de3c05
1 changed files with 8 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
src/ce_synmemo.pas
View File

@ -43,6 +43,7 @@ type
protected protected
procedure SetHighlighter(const Value: TSynCustomHighlighter); override; procedure SetHighlighter(const Value: TSynCustomHighlighter); override;
procedure KeyDown(var Key: Word; Shift: TShiftState); override; procedure KeyDown(var Key: Word; Shift: TShiftState); override;
procedure KeyUp(var Key: Word; Shift: TShiftState); override;
procedure MouseMove(Shift: TShiftState; X, Y: Integer); override; procedure MouseMove(Shift: TShiftState; X, Y: Integer); override;
procedure MouseDown(Button: TMouseButton; Shift: TShiftState; X, Y:Integer); override; procedure MouseDown(Button: TMouseButton; Shift: TShiftState; X, Y:Integer); override;
procedure MouseUp(Button: TMouseButton; Shift: TShiftState; X, Y:Integer); override; procedure MouseUp(Button: TMouseButton; Shift: TShiftState; X, Y:Integer); override;
@ -298,9 +299,6 @@ end;
procedure TCESynMemo.KeyDown(var Key: Word; Shift: TShiftState); procedure TCESynMemo.KeyDown(var Key: Word; Shift: TShiftState);
begin begin
if Key in [VK_PRIOR, VK_NEXT] then
fPositions.store;
//
inherited; inherited;
identifierToD2Syn; identifierToD2Syn;
// //
@ -311,6 +309,13 @@ begin
end; end;
end; end;
procedure TCESynMemo.KeyUp(var Key: Word; Shift: TShiftState);
begin
if Key in [VK_PRIOR, VK_NEXT, Vk_UP] then
fPositions.store;
inherited;
end;
procedure TCESynMemo.MouseMove(Shift: TShiftState; X, Y: Integer); procedure TCESynMemo.MouseMove(Shift: TShiftState; X, Y: Integer);
begin begin
inherited; inherited;