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

fix some error in #35 implementation 

- wrong filename saved
- AV on exit because entity not removed from list
This commit is contained in:
Basile Burg 2015-09-07 15:46:46 +02:00
parent 19b15b06db
commit fe1e1468ee
1 changed files with 8 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
src/ce_main.pas
View File

@ -369,6 +369,7 @@ type
function optionedOptionsModified: boolean; function optionedOptionsModified: boolean;
public public
constructor Create(AOwner: TComponent); override; constructor Create(AOwner: TComponent); override;
destructor Destroy; override;
procedure assign(src: TPersistent); override; procedure assign(src: TPersistent); override;
procedure assignTo(dst: TPersistent); override; procedure assignTo(dst: TPersistent); override;
end; end;
@ -390,6 +391,12 @@ begin
EntitiesConnector.addObserver(self); EntitiesConnector.addObserver(self);
end; end;
destructor TCEApplicationOptions.Destroy;
begin
EntitiesConnector.removeObserver(self);
inherited;
end;
procedure TCEApplicationOptions.assign(src: TPersistent); procedure TCEApplicationOptions.assign(src: TPersistent);
begin begin
if src = CEMainForm then if src = CEMainForm then
@ -870,7 +877,7 @@ begin
end; end;
// globals opts // globals opts
fAppliOpts.assign(self); fAppliOpts.assign(self);
fAppliOpts.saveToFile(getCoeditDocPath + 'global.txt'); fAppliOpts.saveToFile(getCoeditDocPath + 'application.txt');
end; end;
procedure TCEMainForm.SaveDocking; procedure TCEMainForm.SaveDocking;