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);
begin
if fDoc.isNil then exit;
if fDoc.isProjectFile then exit;
if fProjectInterface = nil then exit;
if fProjectInterface.filename = fDoc.fileName then exit;
//
if fProjectInterface.getFormat = pfNative then
begin

4
src/ce_synmemo.pas
View File

@ -112,7 +112,6 @@ type
fCacheLoaded: boolean;
fIsDSource: boolean;
fIsTxtFile: boolean;
fIsConfig: boolean;
fFocusForInput: boolean;
fIdentifier: string;
fTempFileName: string;
@ -216,7 +215,6 @@ type
property completionMenu: TSynCompletion read fCompletion;
property syncroEdit: TSynPluginSyncroEdit read fSyncEdit;
property isDSource: boolean read fIsDSource;
property isProjectFile: boolean read fIsConfig; // warning: never set !
property isTemporary: boolean read getIfTemp;
property TextView;
//
@ -1435,7 +1433,7 @@ procedure TCESynMemo.KeyDown(var Key: Word; Shift: TShiftState);
begin
if Key = VK_RETURN then
begin
if (fAutoCloseCurlyBrace in [autoCloseOnNewLineEof .. autoCloseOnNewLineLexically])then
if (fAutoCloseCurlyBrace in [autoCloseOnNewLineEof .. autoCloseOnNewLineLexically]) then
case fAutoCloseCurlyBrace of
autoCloseOnNewLineAlways: if (CaretX > 1) and (LineText[LogicalCaretXY.X - 1] = '{') then
begin