29. EPMO Open Source Coordination Office Redaction File Detail Report

Produced by Araxis Merge on 3/31/2017 10:45:42 AM Central 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.

29.1 Files compared

# Location File Last Modified
1 CPRS v31A.zip\CPRS v31A\VITL5_P34_src.zip\Source\VITALSCOMMON fGMV_Splash.pas Tue Dec 13 18:25:52 2016 UTC
2 CPRS v31A.zip\CPRS v31A\VITL5_P34_src.zip\Source\VITALSCOMMON fGMV_Splash.pas Fri Mar 31 15:01:18 2017 UTC

29.2 Comparison summary

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

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

29.4 Active regular expressions

No regular expressions were active.

29.5 Comparison detail

  1   unit fGMV_ Splash;
  2   {
  3   ========== ========== ========== ========== ========== ========== ========== ==========
  4   *
  5   *       Ap plication:   Vitals M anager
  6   *       Re vision:      $Revisio n: 1 $  $M odtime: 3/ 10/08 11:2 8a $
  7          Developer:       PII                   
  8   *       Si te:          Hines OI FO
  9   *
  10   *       De scription:   Generic  splash for m
  11   *
  12   *       No tes:
  13   *
  14   *
  15   ========== ========== ========== ========== ========== ========== ========== ==========
  16   *       $A rchive: /V itals/5.0  (Version 5 .0)/5.0.23  (Patch 23 )/VITALS_5 _0_23_8/So urce/VITAL SCOMMON/fG MV_Splash. pas $
  17   *
  18   * $History : fGMV_Spl ash.pas $
  19    * 
  20    * ******* **********   Version  1  ******* **********
  21    * User: V haishandri a Date: 8/ 12/09    T ime: 8:29a
  22    * Created  in $/Vita ls/5.0 (Ve rsion 5.0) /5.0.23 (P atch 23)/V ITALS_5_0_ 23_8/Sourc e/VITALSCO MMON
  23    * 
  24    * ******* **********   Version  1  ******* **********
  25    * User: V haishandri a Date: 3/ 09/09    T ime: 3:38p
  26    * Created  in $/Vita ls/5.0 (Ve rsion 5.0) /5.0.23 (P atch 23)/V ITALS_5_0_ 23_6/Sourc e/VITALSCO MMON
  27    * 
  28    * ******* **********   Version  1  ******* **********
  29    * User: V haishandri a Date: 1/ 13/09    T ime: 1:26p
  30    * Created  in $/Vita ls/5.0 (Ve rsion 5.0) /5.0.23 (P atch 23)/V ITALS_5_0_ 23_4/Sourc e/VITALSCO MMON
  31    * 
  32    * ******* **********   Version  2  ******* **********
  33    * User: V haishandri a Date: 3/ 10/08    T ime: 4:34p
  34    * Updated  in $/Vita ls Source/ Vitals/VIT ALSCOMMON
  35    * 5.0.22. 5 Internal  version 6
  36    * 
  37    * ******* **********   Version  1  ******* **********
  38    * User: V haishandri a Date: 5/ 14/07    T ime: 10:29 a
  39    * Created  in $/Vita ls GUI 200 7/Vitals-5 -0-18/VITA LSCOMMON
  40    * 
  41    * ******* **********   Version  1  ******* **********
  42    * User: V haishandri a Date: 5/ 16/06    T ime: 5:43p
  43    * Created  in $/Vita ls/VITALS- 5-0-18/Vit alsCommon
  44    * GUI v.  5.0.18 upd ates the d efault vit al type IE Ns with th e local
  45    * values.
  46    * 
  47    * ******* **********   Version  1  ******* **********
  48    * User: V haishandri a Date: 5/ 16/06    T ime: 5:33p
  49    * Created  in $/Vita ls/Vitals- 5-0-18/VIT ALS-5-0-18 /VitalsCom mon
  50    * 
  51    * ******* **********   Version  1  ******* **********
  52    * User: V haishandri a Date: 5/ 24/05    T ime: 3:33p
  53    * Created  in $/Vita ls/Vitals  GUI  v 5.0 .2.1 -5.0. 3.1 - Patc h GMVR-5-7  (CASMed,  No CCOW) -  Delphi 6/ VitalsComm on
  54    * 
  55    * ******* **********   Version  1  ******* **********
  56    * User: V haishandri a Date: 4/ 16/04    T ime: 4:17p
  57    * Created  in $/Vita ls/Vitals  GUI Versio n 5.0.3 (C COW, CPRS,  Delphi 7) /VITALSCOM MON
  58    * 
  59   *
  60   ========== ========== ========== ========== ========== ========== ========== ==========
  61   }
  62  
  63   interface
  64  
  65   uses
  66     Windows,
  67     Messages ,
  68     SysUtils ,
  69     Classes,
  70     Graphics ,
  71     Controls ,
  72     Forms,
  73     Dialogs,
  74     StdCtrls ,
  75     ExtCtrls ,
  76     ComCtrls , jpeg;
  77  
  78   type
  79     TfrmGMV_ Splash = c lass(TForm )
  80       Panel2 : TPanel;
  81       Image1 : TImage;
  82       Panel1 : TPanel;
  83       lblVer sion: TLab el;
  84       lblDev elopedAt:  TLabel;
  85       lblRel easeDate:  TLabel;
  86       lblMes sage: TLab el;
  87       pnlPat ch: TPanel ;
  88       lblpat ch: TLabel ;
  89       lblSec urity: TLa bel;
  90       proced ure FormCr eate(Sende r: TObject );
  91       proced ure FormSh ow(Sender:  TObject);
  92     private
  93       { Priv ate declar ations }
  94     public
  95       proced ure Update Message(Ne wMessage:  string; St ep: intege r = 0);
  96       { Publ ic declara tions }
  97     end;
  98  
  99   var
  100     GMVSplas h: TfrmGMV _Splash;
  101  
  102   implementa tion
  103  
  104   uses fGMV_ AboutDlg,  uGMV_Versi onInfo;
  105  
  106   {$R *.DFM}
  107  
  108   procedure  TfrmGMV_Sp lash.FormC reate(Send er: TObjec t);
  109   var
  110     version:  string;
  111     patch: s tring;
  112     released ate: strin g;
  113     testvers ion: Boole an;
  114     sproduct name: stri ng;
  115   begin
  116     with TVe rsionInfo. Create(Sel f) do
  117       try
  118         vers ion := VAS erverVersi on;
  119         patc h := VAPat chNumber;
  120         rele asedate :=  VARelease Date;
  121         test version :=  VATestVer sion;
  122         spro ductname : = ProductN ame;
  123       finall y
  124         free ;
  125       end;
  126  
  127     lblVersi on.Caption  := 'Versi on: ' + ve rsion;
  128  
  129     lblPatch .Caption : = '';
  130     pnlPatch .Visible : = (testver sion or (p atch <> '' ));
  131     if patch  <> '' the n
  132       lblPat ch.Caption  := 'Patch  ' + patch  + ' ';
  133  
  134     if testv ersion the n
  135       lblPat ch.Caption  := 'Test  Release '  + lblPatch .Caption;
  136  
  137     lblRelea seDate.Cap tion := re leasedate;
  138   //  lblIns et.Caption  := sprodu ctname;
  139   //  lblSha dow.Captio n := sprod uctname;
  140   //  lblIns et.Font.Co lor := clA ctiveCapti on;
  141   //  lblSha dow.Font.C olor := cl btnHighlig ht;
  142   //  lblSha dow.Left : = lblInset .Left + 1;
  143   //  lblSha dow.Top :=  lblInset. Top + 1;
  144   //  Positi on := poSc reenCenter ;
  145   //  pbStat us.Visible  := False;
  146     Show;
  147     Applicat ion.Proces sMessages;
  148   end;
  149  
  150   procedure  TfrmGMV_Sp lash.Updat eMessage(N ewMessage:  string; S tep: integ er = 0);
  151   begin
  152     lblMessa ge.Caption  := NewMes sage;
  153   //  pbStat us.Positio n := Step;
  154   //  pbStat us.Visible  := (Step  > 0);
  155     Refresh;
  156   end;
  157  
  158   procedure  TfrmGMV_Sp lash.FormS how(Sender : TObject) ;
  159   begin
  160     left :=  (Screen.Wi dth - widt h) div 2;
  161     top := ( Screen.Hei ght-Height )div 2;
  162     invalida te;
  163   end;
  164  
  165   end.
  166