38. EPMO Open Source Coordination Office Redaction File Detail Report

Produced by Araxis Merge on 5/10/2019 1:00:05 PM 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.

38.1 Files compared

# Location File Last Modified
1 CPRS_v32_64_P2.zip\OR_30_405V64_SRC.zip\Cover Sheet mCoverSheetDisplayPanel_WidgetClock.pas Wed Apr 3 19:32:16 2019 UTC
2 CPRS_v32_64_P2.zip\OR_30_405V64_SRC.zip\Cover Sheet mCoverSheetDisplayPanel_WidgetClock.pas Thu May 9 00:51:30 2019 UTC

38.2 Comparison summary

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

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

38.4 Active regular expressions

No regular expressions were active.

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