removed a dead property

This commit is contained in:
Basile Burg 2016-04-13 11:28:52 +02:00
parent 8d71f9d4db
commit 2973df3589
2 changed files with 2 additions and 4 deletions

View File

@ -1728,8 +1728,8 @@ end;
procedure TCEMainForm.actFileAddToProjExecute(Sender: TObject); procedure TCEMainForm.actFileAddToProjExecute(Sender: TObject);
begin begin
if fDoc.isNil then exit; if fDoc.isNil then exit;
if fDoc.isProjectFile then exit;
if fProjectInterface = nil then exit; if fProjectInterface = nil then exit;
if fProjectInterface.filename = fDoc.fileName then exit;
// //
if fProjectInterface.getFormat = pfNative then if fProjectInterface.getFormat = pfNative then
begin begin

View File

@ -112,7 +112,6 @@ type
fCacheLoaded: boolean; fCacheLoaded: boolean;
fIsDSource: boolean; fIsDSource: boolean;
fIsTxtFile: boolean; fIsTxtFile: boolean;
fIsConfig: boolean;
fFocusForInput: boolean; fFocusForInput: boolean;
fIdentifier: string; fIdentifier: string;
fTempFileName: string; fTempFileName: string;
@ -216,7 +215,6 @@ type
property completionMenu: TSynCompletion read fCompletion; property completionMenu: TSynCompletion read fCompletion;
property syncroEdit: TSynPluginSyncroEdit read fSyncEdit; property syncroEdit: TSynPluginSyncroEdit read fSyncEdit;
property isDSource: boolean read fIsDSource; property isDSource: boolean read fIsDSource;
property isProjectFile: boolean read fIsConfig; // warning: never set !
property isTemporary: boolean read getIfTemp; property isTemporary: boolean read getIfTemp;
property TextView; property TextView;
// //