forks
/
dexed
mirror of https://gitlab.com/basile.b/dexed.git
1
0
Fork 0
Code Issues Packages Projects Releases Wiki Activity

added a flag to avoid the saving of parameters if an error appends in the constructor

This commit is contained in:
Basile Burg 2014-11-12 08:26:13 +01:00
parent cad1a1feb6
commit 339383fea6
1 changed files with 6 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
src/ce_main.pas
View File

@ -190,6 +190,7 @@ type
fFileMru: TMruFileList;
fLibMan: TLibraryManager;
fPrInpWidg: TCEProcInputWidget;
fInitialized: boolean;
{$IFDEF WIN32}
fCdbWidg: TCECdbWidget;
{$ENDIF}
@ -279,7 +280,6 @@ type
function expandSymbolicString(const symString: string): string;
//
property WidgetList: TCEWidgetList read fWidgList;
//property MessageWidget: TCEMessagesWidget read fMesgWidg;
property LibraryManager: TLibraryManager read fLibMan;
property CustomTools: TCETools read fTools;
end;
@ -317,6 +317,7 @@ begin
getCMdParams;
//
EntitiesConnector.endUpdate;
fInitialized := true;
end;
procedure TCEMainForm.checkCompilo;
@ -574,6 +575,8 @@ procedure TCEMainForm.SaveSettings;
var
opts: TCEOptions;
begin
if not fInitialized then
exit;
opts := TCEOptions.create(nil);
try
forceDirectory(getDocPath);
@ -590,6 +593,8 @@ var
xcfg: TXMLConfigStorage;
i: NativeInt;
begin
if not fInitialized then
exit;
if WindowState = wsMinimized then
WindowState := wsNormal;
for i:= 0 to fWidgList.Count-1 do