21. EPMO Open Source Coordination Office Redaction File Detail Report

Produced by Araxis Merge on 5/16/2018 9:34:18 AM Central Daylight Time. See www.araxis.com for information about Merge. This report uses XHTML and CSS2, and is best viewed with a modern standards-compliant browser. For optimum results when printing this report, use landscape orientation and enable printing of background images and colours in your browser.

21.1 Files compared

#	Location	File	Last Modified
1	CPRS_Build_4.zip\CPRS_src\CPRS-chart\Cover Sheet	oCoverSheetParam.pas	Tue May 15 15:02:00 2018 UTC
2	CPRS_Build_4.zip\CPRS_src\CPRS-chart\Cover Sheet	oCoverSheetParam.pas	Tue May 15 17:59:11 2018 UTC

21.2 Comparison summary

Description	Between Files 1 and 2
Description	Text Blocks	Lines
Unchanged	2	206
Changed	1	2
Inserted	0	0
Removed	0	0

21.3 Comparison options

Whitespace
Character case	Differences in character case are significant
Line endings	Differences in line endings (`CR` and `LF` characters) are ignored
CR/LF characters	Not shown in the comparison detail

21.4 Active regular expressions

No regular expressions were active.

21.5 Comparison detail

	1	unit oCove rSheetPara m;
	2
	3	{
	4	======== ========== ========== ========== ========== ========== ========== ========== ==
	5	*
	6	* Applicatio n: CPRS - Covershee t
	7	* Developer: PII
	8	* Site: Salt L ake City I SC
	9	*
	10	* Descriptio n: Simple object th at maintai ns the par ameters fo r any
	11	* CoverS heet panel .
	12	*
	13	* Notes:
	14	*
	15	======== ========== ========== ========== ========== ========== ========== ========== ==
	16	}
	17	interface
	18
	19	uses
	20	System.C lasses,
	21	System.S ysUtils,
	22	Vcl.Cont rols,
	23	Vcl.Grap hics,
	24	iCoverSh eetIntf;
	25
	26	type
	27	TCoverSh eetParam = class(TIn terfacedOb ject, ICov erSheetPar am)
	28	private
	29	//
	30	protecte d
	31	fID: i nteger;
	32	fDispl ayCol: int eger;
	33	fDispl ayRow: int eger;
	34	fTitle : string;
	35
	36	functi on getID: integer;
	37	functi on getDisp layColumn: integer;
	38	functi on getDisp layRow: in teger;
	39	functi on getTitl e: string;
	40
	41	proced ure setDis playColumn (const aVa lue: integ er);
	42	proced ure setDis playRow(co nst aValue : integer) ;
	43	proced ure setTit le(const a Value: str ing);
	44
	45	functi on NewCove rSheetCont rol(aOwner : TCompone nt): TCont rol; virtu al; abstra ct;
	46	public
	47	constr uctor Crea te;
	48	destru ctor Destr oy; overri de;
	49	end;
	50
	51	implementa tion
	52
	53	{ TCoverSh eetParam }
	54
	55	constructo r TCoverSh eetParam.C reate;
	56	begin
	57	inherite d Create;
	58	fID := 0 ;
	59	fDisplay Col := -1;
	60	fDisplay Row := -1;
	61	fTitle : = 'Base TC overSheetP aram';
	62	end;
	63
	64	destructor TCoverShe etParam.De stroy;
	65	begin
	66	inherite d;
	67	end;
	68
	69	function T CoverSheet Param.getI D: integer ;
	70	begin
	71	Result : = fID;
	72	end;
	73
	74	function T CoverSheet Param.getD isplayColu mn: intege r;
	75	begin
	76	Result : = fDisplay Col;
	77	end;
	78
	79	function T CoverSheet Param.getD isplayRow: integer;
	80	begin
	81	Result : = fDisplay Row;
	82	end;
	83
	84	function T CoverSheet Param.getT itle: stri ng;
	85	begin
	86	Result : = fTitle;
	87	end;
	88
	89	procedure TCoverShee tParam.set DisplayCol umn(const aValue: in teger);
	90	begin
	91	fDisplay Col := aVa lue;
	92	end;
	93
	94	procedure TCoverShee tParam.set DisplayRow (const aVa lue: integ er);
	95	begin
	96	fDisplay Row := aVa lue;
	97	end;
	98
	99	procedure TCoverShee tParam.set Title(cons t aValue: string);
	100	begin
	101	fTitle : = aValue;
	102	end;
	103
	104	end.