paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-12-16 05:20:36 +01:00
Code Issues Packages Projects Releases Wiki Activity

EditorOptions/Mouse: Fixed Action=None / Added no action for click on fold-tree's vertical line(s)

Browse Source 
git-svn-id: trunk@20434 -
This commit is contained in:
martin 2009-06-05 12:47:04 +00:00
parent 58acb9da65
commit 82eab88ac2
2 changed files with 2 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
components/synedit/synedit.pp
View File

@ -2447,11 +2447,9 @@ var
Handled: Boolean;
begin
if AnAction = nil then exit(False);
ACommand := AnAction.Command;
if (ACommand = emcNone) and not AnAction.MoveCaret then exit(False);
AnInfo.CaretDone := False;
Result := FGutter.DoHandleMouseAction(AnAction, AnInfo);
if Result then begin
if (not AnInfo.CaretDone) and AnAction.MoveCaret then

1
components/synedit/synguttercodefolding.pp
View File

@ -379,6 +379,7 @@ begin
AddCommand(emcCodeFoldContextMenu, False, mbRight, ccSingle, cdUp, [], []);
AddCommand(emcCodeFoldCollaps, False, mbMiddle, ccAny, cdDown, [], [ssShift], emcoCodeFoldCollapsOne);
AddCommand(emcCodeFoldCollaps, False, mbMiddle, ccAny, cdDown, [ssShift], [ssShift], emcoCodeFoldCollapsAll);
AddCommand(emcNone, False, mbLeft, ccAny, cdDown, [], []);
end;
{ TSynEditMouseActionsGutterFoldExpanded }