From 5831add7384e6b4ca501fd8b75fcd3689d8da0bf Mon Sep 17 00:00:00 2001 From: Basile Burg Date: Thu, 2 Mar 2017 06:47:51 +0100 Subject: [PATCH] more cleanup, planned for first udpate but remove due to many beta --- src/ce_libman.pas | 2 -- src/ce_libmaneditor.pas | 4 ++-- src/ce_tools.pas | 5 ----- 3 files changed, 2 insertions(+), 9 deletions(-) diff --git a/src/ce_libman.pas b/src/ce_libman.pas index 5aa9e2d4..06fccd84 100644 --- a/src/ce_libman.pas +++ b/src/ce_libman.pas @@ -64,8 +64,6 @@ type property libFile: string read fLibFile write setLibFile; property libProject: string read fLibProject write setLibProject; property enabled: boolean read fEnabled write fEnabled default true; - // TODO-cmaintenance: remove this property from version 3 update 1 - property projectFile: string read fLibProject write fLibProject stored false; public constructor Create(ACollection: TCollection); override; destructor Destroy; override; diff --git a/src/ce_libmaneditor.pas b/src/ce_libmaneditor.pas index 4bf78dcb..fd8bdc1e 100644 --- a/src/ce_libmaneditor.pas +++ b/src/ce_libmaneditor.pas @@ -835,7 +835,7 @@ begin row.Caption := itm.libAlias; row.SubItems.Add(itm.libFile); row.SubItems.Add(itm.libSourcePath); - row.SubItems.Add(itm.projectFile); + row.SubItems.Add(itm.libProject); row.SubItems.Add(enableStr[itm.enabled]); end; List.EndUpdate; @@ -852,7 +852,7 @@ begin itm.libAlias := row.Caption; itm.libFile := row.SubItems[0]; itm.libSourcePath := row.SubItems[1]; - itm.projectFile := row.SubItems[2]; + itm.libProject := row.SubItems[2]; itm.enabled := row.SubItems[3] = enableStr[true]; itm.updateModulesInfo; diff --git a/src/ce_tools.pas b/src/ce_tools.pas index 4b461d72..046b15f9 100644 --- a/src/ce_tools.pas +++ b/src/ce_tools.pas @@ -28,7 +28,6 @@ type fToolAlias: string; fQueryParams: boolean; fClearMessages: boolean; - fEditorToInput: boolean; fOutputToNext: boolean; fShortcut: TShortcut; fMsgs: ICEMessagesDisplay; @@ -50,8 +49,6 @@ type property nextToolAlias: string read fNextToolAlias write fNextToolAlias; property outputToNext: boolean read fOutputToNext write fOutputToNext; property pipeInputKind: TPipeInputKind read fPipeInputKind write fPipeInputKind; - // TODO-cmaintenance: remove this property from version 3 update 1 - property editorToInput: boolean read fEditorToInput write fEditorToInput stored false; public constructor create(ACollection: TCollection); override; destructor destroy; override; @@ -156,7 +153,6 @@ begin options := tool.options; executable := tool.executable; workingDirectory := tool.workingDirectory; - editorToInput := tool.editorToInput; showWindows := tool.showWindows; pipeInputKind := tool.pipeInputKind; parameters.Assign(tool.parameters); @@ -403,7 +399,6 @@ begin if tool.isNil then exit; // tool.execute(nil); - if tool.editorToInput then tool.pipeInputKind:= pikEditor; if (tool.pipeInputKind <> pikNone) and fDoc.isNotNil and (poUsePipes in tool.options) and tool.fProcess.Input.isNotNil then begin