17. EPMO Open Source Coordination Office Redaction File Detail Report

Produced by Araxis Merge on 2/17/2017 12:43:22 PM Central Standard 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.

17.1 Files compared

#	Location	File	Last Modified
1	CPRS_V32_T20_cif.zip\OR_30_405V20_SRC.zip\CPRS-chart\Cover Sheet	mCoverSheetDisplayPanel_Web.pas	Thu Dec 15 14:28:30 2016 UTC
2	CPRS_V32_T20_cif.zip\OR_30_405V20_SRC.zip\CPRS-chart\Cover Sheet	mCoverSheetDisplayPanel_Web.pas	Fri Feb 17 17:19:09 2017 UTC

17.2 Comparison summary

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

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

17.4 Active regular expressions

No regular expressions were active.

17.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	Vcl.Grap hics,
	26	Vcl.Cont rols,
	27	Vcl.Form s,
	28	Vcl.Dial ogs,
	29	mCoverSh eetDisplay Panel,
	30	iCoverSh eetIntf,
	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	SHDocVw;
	38
	39	type
	40	TfraCove rSheetDisp layPanel_W eb = class (TfraCover SheetDispl ayPanel, I CoverSheet DisplayPan el)
	41	brwsr: TWebBrows er;
	42	sbtnBa ck: TSpeed Button;
	43	pnlNav igator: TP anel;
	44	sbtnFo rward: TSp eedButton;
	45	edtURL : TEdit;
	46	sbtnGO : TSpeedBu tton;
	47	sbtnHo me: TSpeed Button;
	48	proced ure sbtnGO Click(Send er: TObjec t);
	49	proced ure edtURL KeyDown(Se nder: TObj ect; var K ey: Word; Shift: TSh iftState);
	50	proced ure brwsrN avigateCom plete2(ASe nder: TObj ect; const pDisp: ID ispatch; c onst URL: OleVariant );
	51	private
	52	{ Priv ate declar ations }
	53	protecte d
	54	{ Inhe rited meth ods }
	55	proced ure setPar am(const a Value: ICo verSheetPa ram); over ride;
	56
	57	proced ure OnRefr eshDisplay (Sender: T Object); o verride;
	58
	59	{ Intr oduced met hods }
	60	functi on WebPara ms: ICover SheetParam _Web; virt ual; final ;
	61	public
	62	{ Publ ic declara tions }
	63	constr uctor Crea te(aOwner: TComponen t); overri de;
	64	end;
	65
	66	var
	67	fraCover SheetDispl ayPanel_We b: TfraCov erSheetDis playPanel_ Web;
	68
	69	implementa tion
	70
	71	{$R *.dfm}
	72
	73	{ TfraCove rSheetDisp layPanel_W eb }
	74
	75	procedure TfraCoverS heetDispla yPanel_Web .brwsrNavi gateComple te2(ASende r: TObject ; const pD isp: IDisp atch; cons t URL: Ole Variant);
	76	begin
	77	//
	78	end;
	79
	80	constructo r TfraCove rSheetDisp layPanel_W eb.Create( aOwner: TC omponent);
	81	begin
	82	inherite d;
	83	end;
	84
	85	procedure TfraCoverS heetDispla yPanel_Web .edtURLKey Down(Sende r: TObject ; var Key: Word; Shi ft: TShift State);
	86	begin
	87	if Key = VK_RETURN then
	88	sbtnGO Click(Send er);
	89	end;
	90
	91	procedure TfraCoverS heetDispla yPanel_Web .OnRefresh Display(Se nder: TObj ect);
	92	begin
	93	inherite d;
	94	if WebPa rams.ShowN avigator t hen
	95	//
	96	else
	97	brwsr. Navigate(W ebParams.H omePage);
	98	end;
	99
	100	procedure TfraCoverS heetDispla yPanel_Web .sbtnGOCli ck(Sender: TObject);
	101	begin
	102	if edtUR L.Text <> '' then
	103	brwsr. Navigate(e dtURL.Text );
	104	end;
	105
	106	procedure TfraCoverS heetDispla yPanel_Web .setParam( const aVal ue: ICover SheetParam );
	107	begin
	108	inherite d;
	109	pnlNavig ator.Visib le := WebP arams.Show Navigator;
	110	end;
	111
	112	function T fraCoverSh eetDisplay Panel_Web. WebParams: ICoverShe etParam_We b;
	113	begin
	114	getParam .QueryInte rface(ICov erSheetPar am_Web, Re sult);
	115	end;
	116
	117	end.