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

more cleanup, planned for first udpate but remove due to many beta

This commit is contained in:
Basile Burg 2017-03-02 06:47:51 +01:00
parent a899c73bc8
commit 5831add738
No known key found for this signature in database
GPG Key ID: 1868039F415CB8CF
3 changed files with 2 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
src/ce_libman.pas
View File

@ -64,8 +64,6 @@ type
property libFile: string read fLibFile write setLibFile; property libFile: string read fLibFile write setLibFile;
property libProject: string read fLibProject write setLibProject; property libProject: string read fLibProject write setLibProject;
property enabled: boolean read fEnabled write fEnabled default true; 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 public
constructor Create(ACollection: TCollection); override; constructor Create(ACollection: TCollection); override;
destructor Destroy; override; destructor Destroy; override;

4
src/ce_libmaneditor.pas
View File

@ -835,7 +835,7 @@ begin
row.Caption := itm.libAlias; row.Caption := itm.libAlias;
row.SubItems.Add(itm.libFile); row.SubItems.Add(itm.libFile);
row.SubItems.Add(itm.libSourcePath); row.SubItems.Add(itm.libSourcePath);
row.SubItems.Add(itm.projectFile); row.SubItems.Add(itm.libProject);
row.SubItems.Add(enableStr[itm.enabled]); row.SubItems.Add(enableStr[itm.enabled]);
end; end;
List.EndUpdate; List.EndUpdate;
@ -852,7 +852,7 @@ begin
itm.libAlias := row.Caption; itm.libAlias := row.Caption;
itm.libFile := row.SubItems[0]; itm.libFile := row.SubItems[0];
itm.libSourcePath := row.SubItems[1]; itm.libSourcePath := row.SubItems[1];
itm.projectFile := row.SubItems[2]; itm.libProject := row.SubItems[2];
itm.enabled := row.SubItems[3] = enableStr[true]; itm.enabled := row.SubItems[3] = enableStr[true];
itm.updateModulesInfo; itm.updateModulesInfo;

5
src/ce_tools.pas
View File

@ -28,7 +28,6 @@ type
fToolAlias: string; fToolAlias: string;
fQueryParams: boolean; fQueryParams: boolean;
fClearMessages: boolean; fClearMessages: boolean;
fEditorToInput: boolean;
fOutputToNext: boolean; fOutputToNext: boolean;
fShortcut: TShortcut; fShortcut: TShortcut;
fMsgs: ICEMessagesDisplay; fMsgs: ICEMessagesDisplay;
@ -50,8 +49,6 @@ type
property nextToolAlias: string read fNextToolAlias write fNextToolAlias; property nextToolAlias: string read fNextToolAlias write fNextToolAlias;
property outputToNext: boolean read fOutputToNext write fOutputToNext; property outputToNext: boolean read fOutputToNext write fOutputToNext;
property pipeInputKind: TPipeInputKind read fPipeInputKind write fPipeInputKind; 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 public
constructor create(ACollection: TCollection); override; constructor create(ACollection: TCollection); override;
destructor destroy; override; destructor destroy; override;
@ -156,7 +153,6 @@ begin
options := tool.options; options := tool.options;
executable := tool.executable; executable := tool.executable;
workingDirectory := tool.workingDirectory; workingDirectory := tool.workingDirectory;
editorToInput := tool.editorToInput;
showWindows := tool.showWindows; showWindows := tool.showWindows;
pipeInputKind := tool.pipeInputKind; pipeInputKind := tool.pipeInputKind;
parameters.Assign(tool.parameters); parameters.Assign(tool.parameters);
@ -403,7 +399,6 @@ begin
if tool.isNil then exit; if tool.isNil then exit;
// //
tool.execute(nil); tool.execute(nil);
if tool.editorToInput then tool.pipeInputKind:= pikEditor;
if (tool.pipeInputKind <> pikNone) and fDoc.isNotNil if (tool.pipeInputKind <> pikNone) and fDoc.isNotNil
and (poUsePipes in tool.options) and tool.fProcess.Input.isNotNil then and (poUsePipes in tool.options) and tool.fProcess.Input.isNotNil then
begin begin