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