80. EPMO Open Source Coordination Office Redaction File Detail Report

Produced by Araxis Merge on 10/18/2017 11:37:29 AM Eastern 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.

80.1 Files compared

#	Location	File	Last Modified
1	OSCIF_CPRS v32 Phase 2 Build 2OR3.0405_August_2017.zip\OR_30_405V36_SRC.zip\XE8\Broker\Source	Splvista.pas	Wed Oct 11 20:08:07 2017 UTC
2	OSCIF_CPRS v32 Phase 2 Build 2OR3.0405_August_2017.zip\OR_30_405V36_SRC.zip\XE8\Broker\Source	Splvista.pas	Tue Oct 17 19:58:08 2017 UTC

80.2 Comparison summary

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

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

80.4 Active regular expressions

No regular expressions were active.

80.5 Comparison detail

	1	{ ****** ****** ****** ****** ****** ****** **
	2	Pa ckage: XWB - Kernel RPCBroker
	3	Da te Created : Sept 18, 1997 (Ver sion 1.1)
	4	Si te Name: O akland, OI Field Off ice, Dept of Veteran Affairs
	5	De velopers: PII, PII, PII, PII
	6	De scription: Contains TRPCBroker and relat ed compone nts.
	7	Unit: Sp lvista dis plays Vist A splash s creen.
	8	Cu rrent Rele ase: Versi on 1.1 Pat ch 65
	9	******** ****** ****** ****** ****** ****** * }
	10
	11	{ ****** ****** ****** ****** ******
	12	Changes in v1.1.65 (HGW 07/1 9/2016) XW B1.165
	13	1. None.
	14
	15	Changes in v1.1.60 (HGW 09/1 1/2013) XW B1.160
	16	1. Updat ed graphic s and simp lified cod ing.
	17
	18	Changes in v1.1.14 (DPC 03/3 0/2000) XW B1.114
	19	1. Modif ied the ti ck types s o that cod e will wor k with D3, D4, D5.
	20
	21	Changes in v1.1.11 (DCM 09/2 7/1999) XW B1.111
	22	1. Resol ved error in Delphi 5 (ver130) combining signed an d unsigned
	23	types - widened both oper ands. Chan ged StartT ick from l ongint to
	24	longw ord, and S plashClose (TimeOut) from longi nt to long word.
	25	GetTi ckCount's result is of type DW ORD, longw ord.
	26	******** ****** ****** ****** ******** }
	27	unit Splvi sta;
	28
	29	interface
	30
	31	uses
	32	{System}
	33	SysUtils , Classes,
	34	{WinApi}
	35	WinTypes , WinProcs , Messages ,
	36	{Vcl}
	37	Graphics , Controls , Forms, D ialogs, Ex tCtrls, St dCtrls;
	38
	39	type
	40	TfrmVist aSplash = class(TFor m)
	41	Panel1 : TPanel;
	42	Image1 : TImage;
	43
	44	{ Priv ate declar ations }
	45	public
	46	{ Publ ic declara tions }
	47	end;
	48
	49	var
	50	frmVista Splash: Tf rmVistaSpl ash;
	51	StartT ick: longw ord;
	52
	53	procedure SplashOpen ;
	54
	55	procedur e SplashCl ose(TimeOu t: longwor d);
	56
	57	implementa tion
	58
	59	{$R *.DFM}
	60
	61
	62
	63	procedure SplashOpen ;
	64	begin
	65	StartTic k := GetTi ckCount;
	66	try
	67	frmVis taSplash : = TfrmVist aSplash.Cr eate(Appli cation);
	68	frmVis taSplash.S how;
	69	except
	70	frmVis taSplash.R elease;
	71	frmVis taSplash : = nil;
	72	end;
	73	end;
	74
	75
	76
	77	procedure SplashClos e(TimeOut: longword) ;
	78	begin
	79	try
	80	while (GetTickCo unt - Star tTick) < T imeOut do Applicatio n.ProcessM essages;
	81	frmVis taSplash.R elease;
	82	frmVis taSplash : = nil;
	83	except
	84	end;
	85	end;
	86
	87
	88	end.