21. EPMO Open Source Coordination Office Redaction File Detail Report

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

21.1 Files compared

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

21.2 Comparison summary

Description	Between Files 1 and 2
Description	Text Blocks	Lines
Unchanged	2	234
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 mCove rSheetDisp layPanel_W eb;
	2	{
	3	======== ========== ========== ========== ========== ========== ========== ========== ==
	4	*
	5	* Applicatio n: Demo
	6	* Developer: PII
	7	* Site: Salt L ake City I SC
	8	* Date: 2015-1 2-21
	9	*
	10	* Descriptio n: Web Br owser/Web Page displ ay panel f or CPRS Co versheet.
	11	*
	12	* Notes:
	13	*
	14	======== ========== ========== ========== ========== ========== ========== ========== ==
	15	}
	16
	17	interface
	18
	19	uses
	20	Winapi.W indows,
	21	Winapi.M essages,
	22	System.S ysUtils,
	23	System.V ariants,
	24	System.C lasses,
	25	System.I mageList,
	26	SHDocVw,
	27	Vcl.Grap hics,
	28	Vcl.Cont rols,
	29	Vcl.Form s,
	30	Vcl.Dial ogs,
	31	Vcl.Menu s,
	32	Vcl.ImgL ist,
	33	Vcl.StdC trls,
	34	Vcl.Butt ons,
	35	Vcl.ExtC trls,
	36	Vcl.OleC trls,
	37	mCoverSh eetDisplay Panel,
	38	iCoverSh eetIntf;
	39
	40	type
	41	TfraCove rSheetDisp layPanel_W eb = class (TfraCover SheetDispl ayPanel, I CoverSheet DisplayPan el)
	42	brwsr: TWebBrows er;
	43	sbtnBa ck: TSpeed Button;
	44	pnlNav igator: TP anel;
	45	sbtnFo rward: TSp eedButton;
	46	edtURL : TEdit;
	47	sbtnGO : TSpeedBu tton;
	48	sbtnHo me: TSpeed Button;
	49	proced ure sbtnGO Click(Send er: TObjec t);
	50	proced ure edtURL KeyDown(Se nder: TObj ect; var K ey: Word; Shift: TSh iftState);
	51	proced ure brwsrN avigateCom plete2(ASe nder: TObj ect; const pDisp: ID ispatch; c onst URL: OleVariant );
	52	private
	53	{ Priv ate declar ations }
	54	protecte d
	55	{ Inhe rited meth ods }
	56	proced ure setPar am(const a Value: ICo verSheetPa ram); over ride;
	57
	58	proced ure OnRefr eshDisplay (Sender: T Object); o verride;
	59
	60	{ Intr oduced met hods }
	61	functi on WebPara ms: ICover SheetParam _Web; virt ual; final ;
	62	public
	63	{ Publ ic declara tions }
	64	constr uctor Crea te(aOwner: TComponen t); overri de;
	65	end;
	66
	67	var
	68	fraCover SheetDispl ayPanel_We b: TfraCov erSheetDis playPanel_ Web;
	69
	70	implementa tion
	71
	72	{$R *.dfm}
	73
	74	{ TfraCove rSheetDisp layPanel_W eb }
	75
	76	procedure TfraCoverS heetDispla yPanel_Web .brwsrNavi gateComple te2(ASende r: TObject ; const pD isp: IDisp atch; cons t URL: Ole Variant);
	77	begin
	78	//
	79	end;
	80
	81	constructo r TfraCove rSheetDisp layPanel_W eb.Create( aOwner: TC omponent);
	82	begin
	83	inherite d;
	84	end;
	85
	86	procedure TfraCoverS heetDispla yPanel_Web .edtURLKey Down(Sende r: TObject ; var Key: Word; Shi ft: TShift State);
	87	begin
	88	if Key = VK_RETURN then
	89	sbtnGO Click(Send er);
	90	end;
	91
	92	procedure TfraCoverS heetDispla yPanel_Web .OnRefresh Display(Se nder: TObj ect);
	93	begin
	94	inherite d;
	95	if WebPa rams.ShowN avigator t hen
	96	//
	97	else
	98	brwsr. Navigate(W ebParams.H omePage);
	99	end;
	100
	101	procedure TfraCoverS heetDispla yPanel_Web .sbtnGOCli ck(Sender: TObject);
	102	begin
	103	if edtUR L.Text <> '' then
	104	brwsr. Navigate(e dtURL.Text );
	105	end;
	106
	107	procedure TfraCoverS heetDispla yPanel_Web .setParam( const aVal ue: ICover SheetParam );
	108	begin
	109	inherite d;
	110	pnlNavig ator.Visib le := WebP arams.Show Navigator;
	111	end;
	112
	113	function T fraCoverSh eetDisplay Panel_Web. WebParams: ICoverShe etParam_We b;
	114	begin
	115	getParam .QueryInte rface(ICov erSheetPar am_Web, Re sult);
	116	end;
	117
	118	end.