39. EPMO Open Source Coordination Office Redaction File Detail Report

Produced by Araxis Merge on 5/15/2018 2:43:28 PM 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.

39.1 Files compared

#	Location	File	Last Modified
1	CPRS_V32_COMBINED_BUILD_V45.zip\OR_30_405V45_src\Cover Sheet	oCoverSheetParam_Web.pas	Thu Mar 29 21:15:52 2018 UTC
2	CPRS_V32_COMBINED_BUILD_V45.zip\OR_30_405V45_src\Cover Sheet	oCoverSheetParam_Web.pas	Thu May 10 20:23:58 2018 UTC

39.2 Comparison summary

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

39.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

39.4 Active regular expressions

No regular expressions were active.

39.5 Comparison detail

	1	unit oCove rSheetPara m_Web;
	2
	3	{
	4	======== ========== ========== ========== ========== ========== ========== ========== ==
	5	*
	6	* Applicatio n: CPRS - CoverShee t
	7	* Developer: PII
	8	* Site: Salt L ake City I SC
	9	* Date: 2015-1 2-04
	10	*
	11	* Descriptio n: Inheri ted from T CoverSheet Param this parameter holds
	12	* custom items for displayin g CPRS dat a in the C overSheet.
	13	*
	14	* Notes:
	15	*
	16	======== ========== ========== ========== ========== ========== ========== ========== ==
	17	}
	18	interface
	19
	20	uses
	21	System.C lasses,
	22	System.S ysUtils,
	23	Vcl.Cont rols,
	24	oCoverSh eetParam,
	25	iCoverSh eetIntf;
	26
	27	type
	28	TCoverSh eetParam_W eb = class (TCoverShe etParam, I CoverSheet Param_Web)
	29	private
	30	{ Priv ate declar ations }
	31	fHomeP age: strin g;
	32	fShowN avigator: boolean;
	33
	34	functi on getHome Page: stri ng;
	35	functi on getShow Navigator: boolean;
	36
	37	proced ure setHom ePage(cons t aValue: string);
	38	proced ure setSho wNavigator (const aVa lue: boole an);
	39	protecte d
	40	{ Prot ected decl arations }
	41	functi on NewCove rSheetCont rol(aOwner : TCompone nt): TCont rol; overr ide;
	42	public
	43	{ Publ ic declara tions }
	44	constr uctor Crea te(aInitSt r: string = '');
	45	end;
	46
	47	implementa tion
	48
	49	uses
	50	mCoverSh eetDisplay Panel_Web,
	51	oDelimit edString;
	52
	53	{ TCoverSh eetParam_W eb }
	54
	55	constructo r TCoverSh eetParam_W eb.Create( aInitStr: string = ' ');
	56	begin
	57	inherite d Create;
	58	with New DelimitedS tring(aIni tStr) do
	59	try
	60	setT itle(GetPi eceAsStrin g(2, 'Mini -Browser') );
	61	fHom ePage := G etPieceAsS tring(3, ' http://www .google.co m');
	62	fSho wNavigator := GetPie ceAsBoolea n(4, False );
	63	finall y
	64	Free ;
	65	end;
	66	end;
	67
	68	function T CoverSheet Param_Web. getHomePag e: string;
	69	begin
	70	Result : = fHomePag e;
	71	end;
	72
	73	function T CoverSheet Param_Web. getShowNav igator: bo olean;
	74	begin
	75	Result : = fShowNav igator;
	76	end;
	77
	78	procedure TCoverShee tParam_Web .setHomePa ge(const a Value: str ing);
	79	begin
	80	fHomePag e := aValu e;
	81	end;
	82
	83	procedure TCoverShee tParam_Web .setShowNa vigator(co nst aValue : boolean) ;
	84	begin
	85	fShowNav igator := aValue;
	86	end;
	87
	88	function T CoverSheet Param_Web. NewCoverSh eetControl (aOwner: T Component) : TControl ;
	89	begin
	90	Result : = TfraCove rSheetDisp layPanel_W eb.Create( aOwner);
	91	end;
	92
	93	end.