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

EditorOptions, Mouse config: Fixed Export, use names for IDE commands

Browse Source 
git-svn-id: trunk@21225 -
This commit is contained in:
martin 2009-08-14 19:23:58 +00:00
parent 3c373c5dfa
commit c015e291e8
2 changed files with 26 additions and 15 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

25
ide/editoroptions.pp
View File

@ -515,6 +515,19 @@ type
Info: PEditorOptionsFoldInfoList;
end;
type
{ TSynEditMouseActionKeyCmdHelper }
TSynEditMouseActionKeyCmdHelper = class(TSynEditMouseAction)
private
function GetOptionKeyCmd: TSynEditorCommand;
procedure SetOptionKeyCmd(const AValue: TSynEditorCommand);
published
property Option: TSynEditorCommand read GetOptionKeyCmd write SetOptionKeyCmd;
end;
const
EditorOptionsFoldInfoPas: Array [0..19] of TEditorOptionsFoldInfo
@ -991,18 +1004,6 @@ const
lshJScript
);
type
{ TSynEditMouseActionKeyCmdHelper }
TSynEditMouseActionKeyCmdHelper = class(TSynEditMouseAction)
private
function GetOptionKeyCmd: TSynEditorCommand;
procedure SetOptionKeyCmd(const AValue: TSynEditorCommand);
published
property Option: TSynEditorCommand read GetOptionKeyCmd write SetOptionKeyCmd;
end;
{ TSynEditMouseActionKeyCmdHelper }
function TSynEditMouseActionKeyCmdHelper.GetOptionKeyCmd: TSynEditorCommand;

16
ide/frames/editor_mouseaction_options.pas
View File

@ -532,18 +532,25 @@ end;
procedure TEditorMouseOptionsFrame.BtnExportClick(Sender: TObject);
var
xml: TRttiXMLConfig;
MAct: TSynEditMouseActionKeyCmdHelper;
Procedure SaveMouseAct(Path: String; MActions: TSynEditMouseActions);
var
i: Integer;
begin
for i := 0 to MActions.Count - 1 do
xml.WriteObject(Path + 'M' + IntToStr(i) + '/', MActions[i]);
if MActions[i].Command = emcSynEditCommand then begin
MAct.Assign(MActions[i]);
xml.WriteObject(Path + 'M' + IntToStr(i) + '/', MAct);
end
else
xml.WriteObject(Path + 'M' + IntToStr(i) + '/', MActions[i]);
xml.SetValue(Path + 'Count', MActions.Count);
end;
begin
if SaveDialog1.Execute then begin
MAct := TSynEditMouseActionKeyCmdHelper.Create(nil);
xml := TRttiXMLConfig.CreateClean(SaveDialog1.FileName);
SaveMouseAct('Mouse/Main/', FMainActions);
SaveMouseAct('Mouse/MainSel/', FSelActions);
@ -554,6 +561,7 @@ begin
SaveMouseAct('Mouse/GutterLineNum/', FGutterActionsLines);
xml.Flush;
xml.Free;
MAct.Free;
end;
end;
@ -564,16 +572,17 @@ var
Procedure LoadMouseAct(Path: String; MActions: TSynEditMouseActions);
var
i, c: Integer;
MAct: TSynEditMouseAction;
MAct: TSynEditMouseActionKeyCmdHelper;
begin
MActions.Clear;
MAct := TSynEditMouseActionKeyCmdHelper.Create(nil);
c := xml.GetValue(Path + 'Count', 0);
for i := 0 to c - 1 do begin
try
MActions.IncAssertLock;
try
MAct := MActions.Add;
xml.ReadObject(Path + 'M' + IntToStr(i) + '/', MAct);
MActions.Add.Assign(MAct);
finally
MActions.DecAssertLock;
end;
@ -585,6 +594,7 @@ var
mtError, [mbOk], 0);
end;
end;
Mact.Free;
end;
begin