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

IDE: fixed catching excepions on load/save editor macros

Browse Source 
git-svn-id: trunk@45876 -
This commit is contained in:
mattias 2014-07-15 10:12:04 +00:00
parent 08732d323f
commit b3adaef7a3
1 changed files with 31 additions and 13 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

44
ide/editormacrolistviewer.pas
View File

@ -5,12 +5,15 @@ unit EditorMacroListViewer;
interface
uses
Classes, SysUtils, FileUtil, Laz2_XMLCfg, LazUTF8, SynMacroRecorder, SynEdit,
SynEditKeyCmds, FileProcs, Forms, Controls, Dialogs, StdCtrls, ButtonPanel,
ComCtrls, ExtCtrls, Spin, Menus, LCLType, IDEWindowIntf, IDEImagesIntf,
Classes, SysUtils,
FileUtil, Laz2_XMLCfg, LazUTF8, LazLoggerBase,
LCLType, Forms, Controls, Dialogs, StdCtrls, ButtonPanel, ComCtrls, ExtCtrls,
Spin, Menus,
SynMacroRecorder, SynEdit, SynEditKeyCmds,
IDEWindowIntf, IDEImagesIntf, SrcEditorIntf, IDEHelpIntf, IDECommands,
LazIDEIntf,
LazarusIDEStrConsts, ProjectDefs, LazConf, Project, KeyMapping,
KeyMapShortCutDlg, MainIntf, SrcEditorIntf, IDEHelpIntf, IDECommands,
LazIDEIntf, IDEDialogs;
KeyMapShortCutDlg, MainIntf, IDEDialogs;
type
TSynEditorMacro = class(TSynMacroRecorder) end;
@ -353,14 +356,20 @@ var
XMLConfig: TXMLConfig;
begin
MacroListViewer.FIgnoreMacroChanges := True;
Filename := TrimFilename(AppendPathDelim(GetPrimaryConfigPath)+GlobalConfFileName);
try
Filename := TrimFilename(AppendPathDelim(GetPrimaryConfigPath)+GlobalConfFileName);
XMLConfig := TXMLConfig.Create(Filename);
EditorMacroListGlob.ReadFromXmlConf(XMLConfig, '');
XMLConfig.Free;
finally
MacroListViewer.FIgnoreMacroChanges := False;
try
EditorMacroListGlob.ReadFromXmlConf(XMLConfig, '');
finally
XMLConfig.Free;
end;
except
on E: Exception do begin
DebugLn('[EditorMacroListViewer.LoadGlobalInfo] error reading "',Filename,'": ',E.Message);
end;
end;
MacroListViewer.FIgnoreMacroChanges := False;
end;
procedure SaveGlobalInfo;
@ -369,9 +378,18 @@ var
XMLConfig: TXMLConfig;
begin
Filename := TrimFilename(AppendPathDelim(GetPrimaryConfigPath)+GlobalConfFileName);
XMLConfig := TXMLConfig.CreateClean(Filename);
EditorMacroListGlob.WriteToXmlConf(XMLConfig, '');
XMLConfig.Free;
try
XMLConfig := TXMLConfig.CreateClean(Filename);
try
EditorMacroListGlob.WriteToXmlConf(XMLConfig, '');
finally
XMLConfig.Free;
end;
except
on E: Exception do begin
DebugLn('[EditorMacroListViewer.SaveGlobalInfo] error writing "',Filename,'": ',E.Message);
end;
end;
end;
{ TIdeEditorMacroKeyBinding }