fixed possible future bugs when multiple project will be implemented

src/ce_cdbcmd.pas

@@ -79,6 +79,8 @@ end;
 
 procedure TCECdbWidget.projClosing(const aProject: TCEProject);
 begin
+  if fProject <> aProject then
+    exit;
   fProject := nil;
 end;
 
@@ -89,7 +91,6 @@ end;
 
 procedure TCECdbWidget.projChanged(const aProject: TCEProject);
 begin
-  fProject := aProject;
 end;
 {$ENDREGION --------------------------------------------------------------------}
 

src/ce_editor.pas

@@ -148,7 +148,8 @@ end;
 
 procedure TCEEditorWidget.projClosing(const aProject: TCEProject);
 begin
-  if fProj <> aProject then exit;
+  if fProj <> aProject then
+    exit;
   fProj := nil;
 end;
 
@@ -159,6 +160,8 @@ end;
 
 procedure TCEEditorWidget.projChanged(const aProject: TCEProject);
 begin
+  if fProj <> aProject then
+    exit;
   fProj := aProject;
 end;
 

src/ce_projconf.pas

@@ -70,13 +70,18 @@ end;
 
 procedure TCEProjectConfigurationWidget.projClosing(const aProject: TCEProject);
 begin
+  if fProj <> aProject then
+    exit;
   Grid.TIObject := nil;
   Grid.ItemIndex := -1;
+  self.selConf.Clear;
   fProj := nil;
 end;
 
 procedure TCEProjectConfigurationWidget.projChanged(const aProject: TCEProject);
 begin
+  if fProj <> aProject then
+    exit;
   beginUpdateByEvent;
   fProj := aProject;
   endUpdateByEvent;

src/ce_projinspect.pas

@@ -129,6 +129,8 @@ end;
 
 procedure TCEProjectInspectWidget.projClosing(const aProject: TCEProject);
 begin
+  if fProject <> aProject then
+    exit;
   fProject := nil;
   UpdateByEvent;
 end;
@@ -141,7 +143,8 @@ end;
 
 procedure TCEProjectInspectWidget.projChanged(const aProject: TCEProject);
 begin
-  fProject := aProject;
+  if fProject <> aProject then
+    exit;
   UpdateByEvent;
 end;
 {$ENDREGION}

src/ce_staticexplorer.pas

@@ -266,6 +266,8 @@ end;
 
 procedure TCEStaticExplorerWidget.projClosing(const aProject: TCEProject);
 begin
+  if fProj <> aProject then
+    exit;
   fProj := nil;
 end;
 
@@ -276,7 +278,6 @@ end;
 
 procedure TCEStaticExplorerWidget.projChanged(const aProject: TCEProject);
 begin
-  fProj := aProject;
 end;
 {$ENDREGION}