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

18.1 Files compared

#	Location	File	Last Modified
1	CPRS_V32_T20_cif.zip\OR_30_405V20_SRC.zip\CPRS-chart\Cover Sheet	mCoverSheetDisplayPanel_WidgetClock.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_WidgetClock.pas	Fri Feb 17 17:19:09 2017 UTC

18.2 Comparison summary

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

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

18.4 Active regular expressions

No regular expressions were active.

18.5 Comparison detail

	1	unit mCove rSheetDisp layPanel_W idgetClock ;
	2	{
	3	======== ========== ========== ========== ========== ========== ========== ========== ==
	4	*
	5	* Applicatio n: CPRS - CoverShee t
	6	* Developer: PII
	7	* Site: Salt L ake City I SC
	8	* Date: 2015-1 2-04
	9	*
	10	* Descriptio n: Proof of concept and a fun idea.
	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.Menu s,
	30	Vcl.ImgL ist,
	31	Vcl.StdC trls,
	32	Vcl.Butt ons,
	33	Vcl.ExtC trls,
	34	mCoverSh eetDisplay Panel,
	35	iCoverSh eetIntf;
	36
	37	type
	38	TfraCove rSheetDisp layPanel_W idgetClock = class(T fraCoverSh eetDisplay Panel)
	39	tmrClo ck: TTimer ;
	40	lblTim e: TStatic Text;
	41	proced ure tmrClo ckTimer(Se nder: TObj ect);
	42	private
	43	{ Priv ate declar ations }
	44	fUse24 HourClock: TMenuItem ;
	45	fShowD ayOfWeek: TMenuItem;
	46	protecte d
	47	{ Prot ected decl erations }
	48	proced ure Use24H ourClock(S ender: TOb ject);
	49	proced ure ShowDa yOfWeek(Se nder: TObj ect);
	50	public
	51	constr uctor Crea te(aOwner: TComponen t); overri de;
	52	end;
	53
	54	var
	55	fraCover SheetDispl ayPanel_Wi dgetClock: TfraCover SheetDispl ayPanel_Wi dgetClock;
	56
	57	implementa tion
	58
	59	{$R *.dfm}
	60
	61	{ TfraCove rSheetDisp layPanel_W idgetClock }
	62
	63	constructo r TfraCove rSheetDisp layPanel_W idgetClock .Create(aO wner: TCom ponent);
	64	begin
	65	inherite d Create(a Owner);
	66	fUse24Ho urClock := NewItem(' Use 24 Hou r Clock', 0, False, True, Use2 4HourClock , 0, 'pmnC lock_Use24 Hour');
	67	fShowDay OfWeek := NewItem('S how Day Of Week', 0, False, Tr ue, ShowDa yOfWeek, 0 , 'pmnCloc k_ShowDayO fWeek');
	68
	69	pmn.Item s.Add(NewI tem('-', 0 , False, F alse, nil, 0, 'pmnCl ock_Separa tor'));
	70	pmn.Item s.Add(fUse 24HourCloc k);
	71	pmn.Item s.Add(fSho wDayOfWeek );
	72
	73	tmrClock .Interval := 60000;
	74	tmrClock Timer(nil) ;
	75	tmrClock .Enabled : = True;
	76	end;
	77
	78	procedure TfraCoverS heetDispla yPanel_Wid getClock.S howDayOfWe ek(Sender: TObject);
	79	begin
	80	fShowDay OfWeek.Che cked := no t fShowDay OfWeek.Che cked;
	81	tmrClock Timer(Send er);
	82	end;
	83
	84	procedure TfraCoverS heetDispla yPanel_Wid getClock.U se24HourCl ock(Sender : TObject) ;
	85	begin
	86	fUse24Ho urClock.Ch ecked := n ot fUse24H ourClock.C hecked;
	87	tmrClock Timer(Send er);
	88	end;
	89
	90	procedure TfraCoverS heetDispla yPanel_Wid getClock.t mrClockTim er(Sender: TObject);
	91	var
	92	aDayOfWe ek: string ;
	93	begin
	94	if fShow DayOfWeek. Checked th en
	95	aDayOf Week := #1 3#10 + For matDateTim e('dddd', Now) + #13 #10
	96	else
	97	aDayOf Week := #1 3#10;
	98
	99	if fUse2 4HourClock .Checked t hen
	100	lblTim e.Caption := aDayOfW eek + Form atDateTime ('mmm d, y yyy', Now) + #13#10 + 'Time: ' + FormatD ateTime('h hnn', Now)
	101	else
	102	lblTim e.Caption := aDayOfW eek + Form atDateTime ('mmm d, y yyy', Now) + #13#10 + 'Time: ' + FormatD ateTime('h :nn am/pm' , Now);
	103	end;
	104
	105	end.