paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-09-04 12:00:18 +02:00
Code Issues Packages Projects Releases Wiki Activity

EditorOptions: added simplified Mouse settings, fixes for gutter

Browse Source 
git-svn-id: trunk@21234 -
This commit is contained in:
martin 2009-08-15 20:25:21 +00:00
parent 944b8b028b
commit 62ce1d7cf5
1 changed files with 7 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
ide/editoroptions.pp
View File

@ -2101,13 +2101,13 @@ begin
CDir := cdUp;
with FGutterActions do begin
if FAltColumnMode then begin
AddCommand(emcStartLineSelections, True, mbLeft, ccAny, cdDown, [], [ssShift, ssAlt], emcoSelectionStart);
AddCommand(emcStartLineSelections, True, mbLeft, ccAny, cdDown, [ssShift], [ssShift, ssAlt], emcoSelectionContinue);
AddCommand(emcStartSelections, True, mbLeft, ccAny, cdDown, [], [ssShift, ssAlt], emcoSelectionStart);
AddCommand(emcStartSelections, True, mbLeft, ccAny, cdDown, [ssShift], [ssShift, ssAlt], emcoSelectionContinue);
AddCommand(emcStartColumnSelections, True, mbLeft, ccAny, cdDown, [ssAlt], [ssShift, ssAlt], emcoSelectionStart);
AddCommand(emcStartColumnSelections, True, mbLeft, ccAny, cdDown, [ssAlt, ssShift], [ssShift, ssAlt], emcoSelectionContinue);
end else begin
AddCommand(emcStartLineSelections, True, mbLeft, ccAny, cdDown, [], [ssShift], emcoSelectionStart);
AddCommand(emcStartLineSelections, True, mbLeft, ccAny, cdDown, [ssShift], [ssShift], emcoSelectionContinue);
AddCommand(emcStartSelections, True, mbLeft, ccAny, cdDown, [], [ssShift], emcoSelectionStart);
AddCommand(emcStartSelections, True, mbLeft, ccAny, cdDown, [ssShift], [ssShift], emcoSelectionContinue);
end;
end;
end;
@ -2120,12 +2120,12 @@ begin
AddCommand(emcNone, False, mbLeft, ccAny, CDir, [], []);
end;
with FGutterActionsFoldCol do begin
AddCommand(emcCodeFoldCollaps, False, mbLeft, ccAny, CDir, [], [], emcoCodeFoldCollapsOne);
end;
with FGutterActionsFoldExp do begin
AddCommand(emcCodeFoldExpand, False, mbLeft, ccAny, CDir, [ssCtrl], [ssCtrl], emcoCodeFoldExpandOne);
AddCommand(emcCodeFoldExpand, False, mbLeft, ccAny, CDir, [], [ssCtrl], emcoCodeFoldExpandAll);
end;
with FGutterActionsFoldExp do begin
AddCommand(emcCodeFoldCollaps, False, mbLeft, ccAny, CDir, [], [], emcoCodeFoldCollapsOne);
end;
end;