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

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
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
src/ce_main.pas
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

4
src/ce_synmemo.pas
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;
// //
@ -1435,7 +1433,7 @@ procedure TCESynMemo.KeyDown(var Key: Word; Shift: TShiftState);
begin begin
if Key = VK_RETURN then if Key = VK_RETURN then
begin begin
if (fAutoCloseCurlyBrace in [autoCloseOnNewLineEof .. autoCloseOnNewLineLexically])then if (fAutoCloseCurlyBrace in [autoCloseOnNewLineEof .. autoCloseOnNewLineLexically]) then
case fAutoCloseCurlyBrace of case fAutoCloseCurlyBrace of
autoCloseOnNewLineAlways: if (CaretX > 1) and (LineText[LogicalCaretXY.X - 1] = '{') then autoCloseOnNewLineAlways: if (CaretX > 1) and (LineText[LogicalCaretXY.X - 1] = '{') then
begin begin