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)
private
fCov: boolean;
fCustom: TStringList;
procedure setCov(const aValue: boolean);
procedure setCustom(aValue: TStringList);
published
property coverage: boolean read fCov write setCov default false;
property customOptions: TStringList read fCustom write setCustom;
public
constructor create;
@ -1097,6 +1100,7 @@ begin
begin
src := TOtherOpts(aValue);
fCustom.Assign(src.fCustom);
fCov := src.fCov;
end
else inherited;
end;
@ -1107,6 +1111,13 @@ begin
inherited;
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);
var
str1, str2: string;
@ -1125,6 +1136,7 @@ begin
str2 := str1;
aList.AddText(symbolExpander.get(str2));
end;
if fCov then aList.Add('-cov');
end else
begin
baseopt := TOtherOpts(base);
@ -1140,6 +1152,7 @@ begin
str2 := str1;
aList.AddText(symbolExpander.get(str2));
end;
if baseopt.fCov or fCov then aList.Add('-cov');
end;
end;