From 53d6097f345c5277c82f83eff86cd5a3ce8331fd Mon Sep 17 00:00:00 2001 From: Basile Burg Date: Sun, 12 Jun 2016 14:01:45 +0200 Subject: [PATCH] removed deprecated CE proj properties --- src/ce_dmdwrap.pas | 6 ------ src/ce_main.pas | 2 -- src/ce_projgroup.pas | 3 +++ 3 files changed, 3 insertions(+), 8 deletions(-) diff --git a/src/ce_dmdwrap.pas b/src/ce_dmdwrap.pas index e6986591..b84d1ce9 100644 --- a/src/ce_dmdwrap.pas +++ b/src/ce_dmdwrap.pas @@ -155,8 +155,6 @@ type property versionIdentifiers: TStringList read fVerIds write setVerIds; property generateAllTmpCode: boolean read fAllInst write setAllInst default false; property addStackStompCode: boolean read fStackStomp write setStackStomp default false; - //TODO-cmaintenace: remove deprecated props - property generateStackFrame: boolean write setGenStack stored false; deprecated; public constructor create; override; destructor destroy; override; @@ -192,10 +190,6 @@ type property generateInfos: boolean read fGenInfos write setGenInfos default false; property generateMapFile: boolean read fGenMap write setGenMap default false; property generateStackFrame: boolean read fGenFrame write setGenFrame default false; - //TODO-cmaintenace: remove deprecated props - property debug: boolean write setDebugConditions; deprecated; - property codeviewDexts: boolean write setGenInfos stored false; deprecated; - property codeviewCformat: boolean write setDbgC stored false; deprecated; public constructor create; override; destructor destroy; override; diff --git a/src/ce_main.pas b/src/ce_main.pas index 9b779a7b..29175881 100644 --- a/src/ce_main.pas +++ b/src/ce_main.pas @@ -406,8 +406,6 @@ type procedure setTargets(projs: TCEMRUFileList; files: TCEMRUFileList); end; - //TODO-cprojectgroup: handle auto reloading of the previous group - TCELastDocsAndProjs = class(TWritableLfmTextComponent) private fDocuments: TStringList; diff --git a/src/ce_projgroup.pas b/src/ce_projgroup.pas index e86e84ea..6d68947f 100644 --- a/src/ce_projgroup.pas +++ b/src/ce_projgroup.pas @@ -222,6 +222,8 @@ begin doChanged; end; +//TODO-cprojectgroup: flag 'modified' not set when item deleted or pos exchanged from GUI + procedure TProjectGroup.openGroup(aFilename: string); begin loadFromFile(aFilename); @@ -377,6 +379,7 @@ procedure TCEProjectGroupWidget.btnRemProjClick(Sender: TObject); begin if lstProj.ItemIndex = -1 then exit; projectGroup.items.Delete(lstProj.Selected.Index); + updateList; end; procedure TCEProjectGroupWidget.lstProjDblClick(Sender: TObject);