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

IDE, EditorOpts: add mouse wheel to old advanced options (xml loader)

Browse Source 
git-svn-id: trunk@36293 -
This commit is contained in:
martin 2012-03-24 18:43:06 +00:00
parent 71d29ac07e
commit 4c773bd16a
1 changed files with 16 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

16
ide/editoroptions.pp
View File

@ -602,6 +602,10 @@ const
It now uses all fields. Old entries will copy Foreground to Frame and
set sfeBottom
}
EditorMouseOptsFormatVersion = 1;
{ * Changes in Version 6:
- MouseWheel is nov configurable
}
LazSyntaxHighlighterClasses: array[TLazSyntaxHighlighter] of
TCustomSynClass =
@ -804,6 +808,7 @@ type
FTextShiftAltExtra2Click: TMouseOptButtonAction;
FTextShiftCtrlExtra2Click: TMouseOptButtonAction;
FTextShiftExtra2Click: TMouseOptButtonAction;
FVersion: Integer;
// wheel
FWheel: TMouseOptWheelAction;
FAltWheel: TMouseOptWheelAction;
@ -982,6 +987,7 @@ type
// the flag below is set by CalcCustomSavedActions
property CustomSavedActions: Boolean read FCustomSavedActions write FCustomSavedActions;
property SelectedUserScheme: String read FSelectedUserScheme write SetSelectedUserScheme;
property Version : Integer read FVersion write FVersion;
end;
{ TEditorMouseOptionPresets }
@ -2556,6 +2562,7 @@ begin
FGutterActionsFoldCol := TSynEditMouseActions.Create(nil);
FGutterActionsLines := TSynEditMouseActions.Create(nil);
FUserSchemes := TQuickStringlist.Create;
FVersion := 0;
end;
destructor TEditorMouseOptions.Destroy;
@ -3204,6 +3211,14 @@ begin
LoadMouseAct(aPath + 'GutterFoldExp/', GutterActionsFoldExp);
LoadMouseAct(aPath + 'GutterFoldCol/', GutterActionsFoldCol);
LoadMouseAct(aPath + 'GutterLineNum/', GutterActionsLines);
if Version < 1 then begin
try
FMainActions.AddCommand(emcWheelVertScrollDown, False, mbXWheelDown, ccAny, cdDown, [], []);
FMainActions.AddCommand(emcWheelVertScrollUp, False, mbXWheelUp, ccAny, cdDown, [], []);
except
end;
end;
end
else
if (FSelectedUserScheme <> '') then begin
@ -3239,6 +3254,7 @@ procedure TEditorMouseOptions.SaveToXml(aXMLConfig: TRttiXMLConfig; aPath: Strin
var
DefMouseSettings: TEditorMouseOptions;
begin
FVersion := EditorMouseOptsFormatVersion;
DefMouseSettings := TEditorMouseOptions.Create;
CalcCustomSavedActions;
aXMLConfig.WriteObject(aPath + 'Default/', Self, DefMouseSettings);