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

CE projs, added coverage to otherOptions

This commit is contained in:
Basile Burg 2016-01-21 18:32:55 +01:00
parent 0ddc7acf6e
commit 1edee4eba8
1 changed files with 13 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
src/ce_dmdwrap.pas
View File

@ -232,9 +232,12 @@ type
*) *)
TOtherOpts = class(TOptsGroup) TOtherOpts = class(TOptsGroup)
private private
fCov: boolean;
fCustom: TStringList; fCustom: TStringList;
procedure setCov(const aValue: boolean);
procedure setCustom(aValue: TStringList); procedure setCustom(aValue: TStringList);
published published
property coverage: boolean read fCov write setCov default false;
property customOptions: TStringList read fCustom write setCustom; property customOptions: TStringList read fCustom write setCustom;
public public
constructor create; constructor create;
@ -1097,6 +1100,7 @@ begin
begin begin
src := TOtherOpts(aValue); src := TOtherOpts(aValue);
fCustom.Assign(src.fCustom); fCustom.Assign(src.fCustom);
fCov := src.fCov;
end end
else inherited; else inherited;
end; end;
@ -1107,6 +1111,13 @@ begin
inherited; inherited;
end; end;
procedure TOtherOpts.setCov(const aValue: boolean);
begin
if fCov = aValue then exit;
fCov := aValue;
doChanged;
end;
procedure TOtherOpts.getOpts(aList: TStrings; base: TOptsGroup = nil); procedure TOtherOpts.getOpts(aList: TStrings; base: TOptsGroup = nil);
var var
str1, str2: string; str1, str2: string;
@ -1125,6 +1136,7 @@ begin
str2 := str1; str2 := str1;
aList.AddText(symbolExpander.get(str2)); aList.AddText(symbolExpander.get(str2));
end; end;
if fCov then aList.Add('-cov');
end else end else
begin begin
baseopt := TOtherOpts(base); baseopt := TOtherOpts(base);
@ -1140,6 +1152,7 @@ begin
str2 := str1; str2 := str1;
aList.AddText(symbolExpander.get(str2)); aList.AddText(symbolExpander.get(str2));
end; end;
if baseopt.fCov or fCov then aList.Add('-cov');
end; end;
end; end;