8. EPMO Open Source Coordination Office Redaction File Detail Report

Produced by Araxis Merge on 1/31/2019 1:51:40 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.

8.1 Files compared

#	Location	File	Last Modified
1	CPRS v31b Phase 2 T257 CiF Submission..zip\CPRS v31b Phase 2 T257 CiF Submission\OR_30_377V257_src\Cover Sheet	fCoverSheetDetailDisplay.pas	Thu Nov 15 18:27:48 2018 UTC
2	CPRS v31b Phase 2 T257 CiF Submission.zip\CPRS v31b Phase 2 T257 CiF Submission\OR_30_377V257_src\Cover Sheet	fCoverSheetDetailDisplay.pas	Tue Jan 29 15:30:05 2019 UTC

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

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

8.4 Active regular expressions

No regular expressions were active.

8.5 Comparison detail

	1	unit fCove rSheetDeta ilDisplay;
	2	{
	3	======== ========== ========== ========== ========== ========== ========== ========== ==
	4	*
	5	* Applicatio n: CPRS - Covershee t
	6	* Developer: PII
	7	* Site: Salt L ake City I SC
	8	* Date: ####-# #-##
	9	*
	10	* Descriptio n: Main f orm for di splaying d etail on c oversheet items.
	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	Vcl.StdC trls,
	30	Vcl.ExtC trls;
	31
	32	type
	33	TfrmCove rSheetDeta ilDisplay = class(TF orm)
	34	pnlOpt ions: TPan el;
	35	btnClo se: TButto n;
	36	memDet ails: TMem o;
	37	btnPri nt: TButto n;
	38	lblFon tSizer: TL abel;
	39	private
	40	{ Priv ate declar ations }
	41	public
	42	{ Publ ic declara tions }
	43	end;
	44
	45	var
	46	frmCover SheetDetai lDisplay: TfrmCoverS heetDetail Display;
	47
	48	function R eportBox(a Text: TStr ings; aTit le: string ; aAllowPr int: boole an): boole an;
	49
	50	implementa tion
	51
	52	{$R *.dfm}
	53
	54	{ TfrmCove rSheetDeta ilDisplay }
	55
	56	function R eportBox(a Text: TStr ings; aTit le: string ; aAllowPr int: boole an): boole an;
	57	var
	58	aStr: st ring;
	59	aWidth: integer;
	60	aCurWidt h: integer ;
	61	aMaxWidt h: integer ;
	62	begin
	63	with Tfr mCoverShee tDetailDis play.Creat e(Applicat ion.MainFo rm) do
	64	try
	65	memD etails.Lin es.Clear;
	66	memD etails.Scr ollBars := ssVertica l;
	67	aCur Width := 3 00;
	68	aMax Width := S creen.Widt h - 100;
	69	lblF ontSizer.F ont := mem Details.Fo nt;
	70	for aStr in aT ext do
	71	be gin
	72	aWidth := lblFontSiz er.Canvas. TextWidth( aStr);
	73	if aWidth > aCurWidt h then
	74	if aWidt h < aMaxWi dth then
	75	aCurWi dth := aWi dth
	76	else
	77	begin
	78	aCur Width := a MaxWidth;
	79	memD etails.Scr ollBars := ssHorizon tal;
	80	end;
	81	memDetails .Lines.Add (aStr);
	82	en d;
	83	Capt ion := aTi tle;
	84	btnP rint.Visib le := aAll owPrint;
	85	Clie ntWidth := aCurWidth + 50;
	86	Show Modal;
	87	finall y
	88	Free ;
	89	end;
	90	Result : = True;
	91	end;
	92
	93	end.