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

source position buffer controlled by virtual key browser back/next,.

This commit is contained in:
Basile Burg 2015-05-07 10:33:16 +02:00
parent 1da6889f4f
commit d0f2b1c266
1 changed files with 5 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
src/ce_synmemo.pas
View File

@ -645,8 +645,11 @@ procedure TCESynMemo.KeyDown(var Key: Word; Shift: TShiftState);
begin begin
inherited; inherited;
identifierToD2Syn; identifierToD2Syn;
case Key of
VK_BROWSER_BACK: fPositions.back;
VK_BROWSER_FORWARD: fPositions.next;
end;
if not (Shift = [ssCtrl]) then exit; if not (Shift = [ssCtrl]) then exit;
//
case Key of case Key of
VK_ADD: if Font.Size < 50 then Font.Size := Font.Size + 1; VK_ADD: if Font.Size < 50 then Font.Size := Font.Size + 1;
VK_SUBTRACT: if Font.Size > 3 then Font.Size := Font.Size - 1; VK_SUBTRACT: if Font.Size > 3 then Font.Size := Font.Size - 1;
@ -739,7 +742,7 @@ begin
case Button of case Button of
mbMiddle: if (Shift = [ssCtrl]) then mbMiddle: if (Shift = [ssCtrl]) then
Font.Size := fDefaultFontSize; Font.Size := fDefaultFontSize;
// TODO-cfeature: Linux only, mouse action for src position buffer. // linux, kde: mbExtra are never called
mbExtra1: fPositions.back; mbExtra1: fPositions.back;
mbExtra2: fPositions.next; mbExtra2: fPositions.next;
mbLeft: fPositions.store; mbLeft: fPositions.store;