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

style

This commit is contained in:
Basile Burg 2015-03-22 01:22:48 +01:00
parent 4c5d4a057d
commit f8f5825989
1 changed files with 9 additions and 10 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

19
src/ce_synmemo.pas
View File

@ -5,7 +5,7 @@ unit ce_synmemo;
interface interface
uses uses
Classes, SysUtils, controls,lcltype, Forms, graphics, ExtCtrls, crc, math, Classes, SysUtils, controls,lcltype, Forms, graphics, ExtCtrls, crc,
SynEditKeyCmds,LazSynEditText, SynEditHighlighter, SynEdit, SynHighlighterLFM, SynEditKeyCmds,LazSynEditText, SynEditHighlighter, SynEdit, SynHighlighterLFM,
SynEditMouseCmds, SynEditFoldedView, ce_common, ce_observer, ce_writableComponent, SynEditMouseCmds, SynEditFoldedView, ce_common, ce_observer, ce_writableComponent,
ce_d2syn, ce_txtsyn; ce_d2syn, ce_txtsyn;
@ -672,15 +672,14 @@ end;
procedure TCESynMemo.MouseUp(Button: TMouseButton; Shift: TShiftState; X, Y:Integer); procedure TCESynMemo.MouseUp(Button: TMouseButton; Shift: TShiftState; X, Y:Integer);
begin begin
inherited; inherited;
if (Button = mbMiddle) and (Shift = [ssCtrl]) then case Button of
Font.Size := fDefaultFontSize mbMiddle: if (Shift = [ssCtrl]) then
// note: Window only Font.Size := fDefaultFontSize;
else if Button = mbExtra1 then // TODO-cfeature: Linux only, mouse action for src position buffer.
fPositions.back mbExtra1: fPositions.back;
else if Button = mbExtra2 then mbExtra2: fPositions.next;
fPositions.next mbLeft: fPositions.store;
else if Button = mbLeft then end;
fPositions.store;
end; end;
function TCESynMemo.DoMouseWheel(Shift: TShiftState; WheelDelta: Integer; MousePos: TPoint): Boolean; function TCESynMemo.DoMouseWheel(Shift: TShiftState; WheelDelta: Integer; MousePos: TPoint): Boolean;