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

23.1 Files compared

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

23.2 Comparison summary

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

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

23.4 Active regular expressions

No regular expressions were active.

23.5 Comparison detail

  1   unit fGMV_ AboutDlg;
  2   {
  3   ========== ========== ========== ========== ========== ========== ========== ==========
  4   *
  5   *       Ap plication:   Vitals
  6   *       Re vision:      $Revisio n: 1 $  $M odtime: 12 /20/07 12: 43p $
  7   *       De veloper:      PII                   
  8   *                       modified  from BCMA  Applicati on by BKur tze@Dallas  CIOFO
  9   *       Si te:          Hines OI FO
  10   *
  11   *       De scription:   This is  an About D ialog whic h displays  data from  the proje ct
  12   *                       VersionI nfo block  for the ap plication.
  13   *
  14   *       No tes:         Delphi d eveloper m ust add Ke ys VARelea seDate and  VANamespa ce
  15   *                       Under Pr oject|Opti ons on the  Version I nfo tab fo r the vers ion,
  16   *                       patch, a nd release  date info rmation to  show up o n the form .
  17   *
  18   *
  19   ========== ========== ========== ========== ========== ========== ========== ==========
  20   *       $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_AboutDl g.pas $
  21   *
  22   * $History : fGMV_Abo utDlg.pas  $
  23    * 
  24    * ******* **********   Version  1  ******* **********
  25    * User: V haishandri a Date: 8/ 12/09    T ime: 8:29a
  26    * 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
  27    * 
  28    * ******* **********   Version  1  ******* **********
  29    * User: V haishandri a Date: 3/ 09/09    T ime: 3:38p
  30    * 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
  31    * 
  32    * ******* **********   Version  1  ******* **********
  33    * User: V haishandri a Date: 1/ 13/09    T ime: 1:26p
  34    * 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
  35    * 
  36    * ******* **********   Version  4  ******* **********
  37    * User: V haishandri a Date: 10 /04/07   T ime: 5:20p
  38    * Updated  in $/Vita ls GUI 200 7/Vitals-5 -0-18/VITA LSCOMMON
  39    * Patch 2 2.
  40    * 
  41    * ******* **********   Version  3  ******* **********
  42    * User: V haishandri a Date: 7/ 18/07    T ime: 12:42 p
  43    * Updated  in $/Vita ls GUI 200 7/Vitals-5 -0-18/VITA LSCOMMON
  44    * 
  45    * ******* **********   Version  2  ******* **********
  46    * User: V haishandri a Date: 7/ 17/07    T ime: 2:30p
  47    * Updated  in $/Vita ls GUI 200 7/Vitals-5 -0-18/VITA LSCOMMON
  48    * 
  49    * ******* **********   Version  1  ******* **********
  50    * User: V haishandri a Date: 5/ 14/07    T ime: 10:29 a
  51    * Created  in $/Vita ls GUI 200 7/Vitals-5 -0-18/VITA LSCOMMON
  52    * 
  53    * ******* **********   Version  1  ******* **********
  54    * User: V haishandri a Date: 5/ 16/06    T ime: 5:43p
  55    * Created  in $/Vita ls/VITALS- 5-0-18/Vit alsCommon
  56    * GUI v.  5.0.18 upd ates the d efault vit al type IE Ns with th e local
  57    * values.
  58    * 
  59    * ******* **********   Version  1  ******* **********
  60    * User: V haishandri a Date: 5/ 16/06    T ime: 5:33p
  61    * Created  in $/Vita ls/Vitals- 5-0-18/VIT ALS-5-0-18 /VitalsCom mon
  62    * 
  63    * ******* **********   Version  2  ******* **********
  64    * User: V haishandri a Date: 7/ 06/05    T ime: 12:11 p
  65    * Updated  in $/Vita ls/Vitals  GUI  v 5.0 .2.1 -5.0. 3.1 - Patc h GMVR-5-7  (CASMed,  CCOW) - De lphi 6/Vit alsCommon
  66    * 
  67    * ******* **********   Version  1  ******* **********
  68    * User: V haishandri a Date: 5/ 24/05    T ime: 3:33p
  69    * 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
  70    * 
  71    * ******* **********   Version  1  ******* **********
  72    * User: V haishandri a Date: 4/ 16/04    T ime: 4:17p
  73    * Created  in $/Vita ls/Vitals  GUI Versio n 5.0.3 (C COW, CPRS,  Delphi 7) /VITALSCOM MON
  74    *
  75   *
  76   ========== ========== ========== ========== ========== ========== ========== ==========
  77   }
  78  
  79   interface
  80  
  81   uses Windo ws,
  82     SysUtils ,
  83     Classes,
  84     Graphics ,
  85     Forms,
  86     Controls ,
  87     StdCtrls ,
  88     Buttons,
  89     ExtCtrls ,
  90     uGMV_Com mon
  91     , uGMV_V ersionInfo , jpeg
  92     ;
  93  
  94   type
  95     TfrmGMV_ AboutDlg =  class(TFo rm)
  96       pnlIma ge: TPanel ;
  97       Panel1 : TPanel;
  98       lblPro ductNameSh adow: TLab el;
  99       lblPro ductNameIn set: TLabe l;
  100       lblCli entVersion : TLabel;
  101       lblCop yright: TL abel;
  102       lblRel easeDate:  TLabel;
  103       Label2 : TLabel;
  104       lblRel easeDateLa bel: TLabe l;
  105       Label4 : TLabel;
  106       lblPat chLabel: T Label;
  107       lblPat ch: TLabel ;
  108       Label1 : TLabel;
  109       lblHel pFile: TLa bel;
  110       lblSec urity: TLa bel;
  111       Label3 : TLabel;
  112       lblSer verVersion : TLabel;
  113       lblCom pileDate:  TLabel;
  114       lblCRC Value: TLa bel;
  115       Label5 : TLabel;
  116       Label6 : TLabel;
  117       lblSou rceInfo: T Label;
  118       OKButt on: TButto n;
  119       Panel3 : TPanel;
  120       pnlCom ments: TPa nel;
  121       Image:  TImage;
  122       Label7 : TLabel;
  123       Label8 : TLabel;
  124       Image1 : TImage;
  125       proced ure FormCr eate(Sende r: TObject );
  126       proced ure lblCom mentsMouse Down(Sende r: TObject ; Button:  TMouseButt on;
  127         Shif t: TShiftS tate; X, Y : Integer) ;
  128       proced ure FormKe yDown(Send er: TObjec t; var Key : Word;
  129         Shif t: TShiftS tate);
  130       (*
  131         Uses  TVersionI nfo to rea d the Vers ion Info f or applica tion.ExeNa me into
  132         the  form's dis play field s.
  133       *)
  134     private
  135     public
  136       proced ure Execut e;
  137     end;
  138  
  139   var
  140     GMVAbout Dlg: TfrmG MV_AboutDl g;
  141  
  142   implementa tion
  143  
  144   {$R *.DFM}
  145   uses
  146     Dialogs
  147     , Math
  148     ,  uGMV_ CRC32
  149     ;
  150  
  151   //Copy fro m FileCtrl  ========   vhaishand ria 2007-0 7-17 ===== ========== ==== begin
  152  
  153   procedure  CutFirstDi rectory(va r S: TFile Name);
  154   var
  155     Root: Bo olean;
  156     P: Integ er;
  157   begin
  158     if S = ' \' then
  159       S := ' '
  160     else
  161       begin
  162         if S [1] = '\'  then
  163           be gin
  164              Root := Tr ue;
  165              Delete(S,  1, 1);
  166           en d
  167         else
  168           Ro ot := Fals e;
  169         if S [1] = '.'  then
  170           De lete(S, 1,  4);
  171         P :=  AnsiPos(' \', S);
  172         if P  <> 0 then
  173           be gin
  174              Delete(S,  1, P);
  175              S := '...\ ' + S;
  176           en d
  177         else
  178           S  := '';
  179         if R oot then
  180           S  := '\' + S ;
  181       end;
  182   end;
  183  
  184   function M inimizeNam e(const Fi lename: TF ileName; C anvas: TCa nvas;
  185     MaxLen:  Integer):  TFileName;
  186   var
  187     Drive: T FileName;
  188     Dir: TFi leName;
  189     Name: TF ileName;
  190   begin
  191     Result : = FileName ;
  192     Dir := E xtractFile Path(Resul t);
  193     Name :=  ExtractFil eName(Resu lt);
  194  
  195     if (Leng th(Dir) >=  2) and (D ir[2] = ': ') then
  196       begin
  197         Driv e := Copy( Dir, 1, 2) ;
  198         Dele te(Dir, 1,  2);
  199       end
  200     else
  201       Drive  := '';
  202     while (( Dir <> '')  or (Drive  <> '')) a nd (Canvas .TextWidth (Result) >  MaxLen)
  203       do
  204       begin
  205         if D ir = '\... \' then
  206           be gin
  207              Drive := ' ';
  208              Dir := '.. .\';
  209           en d
  210         else  if Dir =  '' then
  211           Dr ive := ''
  212         else
  213           Cu tFirstDire ctory(Dir) ;
  214         Resu lt := Driv e + Dir +  Name;
  215       end;
  216   end;
  217   //Copy fro m FileCtrl  ========   vhaishand ria 2007-0 7-17 ===== ========== ====== end
  218  
  219   (*=== Abou tDlg Metho ds ======= ========== ========== ========== ========== =======*)
  220  
  221   procedure  TfrmGMV_Ab outDlg.Exe cute;
  222   begin
  223     with Tfr mGMV_About Dlg.Create (self) do
  224     try
  225       pnlCom ments.Alig n := alCli ent;
  226       Image. Align := a lClient;
  227       showMo dal;
  228     finally
  229       free;
  230     end;
  231   end;
  232  
  233   procedure  TfrmGMV_Ab outDlg.For mCreate(Se nder: TObj ect);
  234   var
  235     s: Strin g;
  236   begin
  237   {$IFDEF DL L}
  238     s := Get ProgramFil esPath+'\V ista\Commo n Files\GM V_VitalsVi ewEnter.hl p';
  239     lblCRCVa lue.Captio n := GetFi leCRC32(Ge tProgramFi lesPath +  '\Vista\Co mmon Files \GMV_Vital sViewEnter .Dll');
  240   {$ELSE}
  241     s := Ext ractFileDi r(Applicat ion.ExeNam e) + '\Hel p\'+
  242          Cha ngeFileExt (ExtractFi leName(App lication.E xeName),'. hlp');
  243     lblCRCVa lue.Captio n := GetFi leCRC32(Ap plication. Exename);
  244   {$ENDIF}
  245  
  246     lblProdu ctNameInse t.Font.Col or := clAc tiveCaptio n;
  247     lblProdu ctNameShad ow.Font.Co lor := clB tnHighligh t;
  248  
  249     lblProdu ctNameShad ow.Top :=  lblProduct NameInset. Top + 1;
  250     lblProdu ctNameShad ow.Left :=  lblProduc tNameInset .Left + 1;
  251  
  252     lblHelpF ile.Captio n := Minim izeName(s,  lblHelpFi le.Canvas,  lblHelpFi le.Width);
  253     lblHelpF ile.Hint : = 'Help fi le name: '  + s;
  254     lblHelpF ile.ShowHi nt := (Pos ('...', lb lHelpFile. Caption) >  0);
  255  
  256     with TVe rsionInfo. Create(sel f) do
  257     try
  258       lblPro ductNameIn set.Captio n := Produ ctName;
  259       lblPro ductNameSh adow.Capti on := Prod uctName;
  260  
  261       Self.C aption :=  'About ' +  ProductNa me;// {$IF DEF DLL} +  ' ('+Comm ents+')'{$ ENDIF} ;
  262  
  263       lblSou rceInfo.Ca ption := V ASourceInf ormation;
  264       lblCli entVersion .Caption : = FileVers ion;
  265       lblSer verVersion .Caption : = VAServer Version;
  266       lblPat ch.Caption  := VAPatc hNumber;
  267       lblPat chLabel.Vi sible := ( VAPatchNum ber <> '') ;
  268       lblCom pileDate.C aption :=  FormatDate Time('mm/d d/yy hh:mm :ss',Compi leDateTime );
  269       lblRel easeDate.C aption :=  VAReleaseD ate;
  270       lblCop yright.Cap tion := Le galCopyRig ht;
  271     finally
  272       free;
  273     end;
  274   end;
  275  
  276   procedure  TfrmGMV_Ab outDlg.lbl CommentsMo useDown(Se nder: TObj ect;
  277     Button:  TMouseButt on; Shift:  TShiftSta te; X, Y:  Integer);
  278   var
  279     Delay,
  280     i: Integ er;
  281   const
  282     clText =  clNavy;
  283  
  284     procedur e GrowRigh tCentered( aCanvas:TC anvas;aWai t:Integer;
  285       aXMarg in,Y,aWidt h:Integer; aFColor:TC olor;aText :String);
  286     var
  287       ii,i:  integer;
  288     begin
  289       with a Canvas do
  290         begi n
  291           Fo nt.Style : = [fsBold] ;
  292           ii  := TextWi dth(aText) ;
  293           ii  := (aWidt h - ii) di v 2;
  294           aX Margin :=  ii;
  295           ii  := TextHe ight(aText );
  296           Fo nt.Color : = aFColor;
  297           fo r i := aXM argin to a Width - aX Margin do
  298              begin
  299                FillRect (Rect(aXMa rgin,y,i,y +ii));
  300                TextRect (Rect(aXMa rgin,y,i,y +ii),aXMar gin,y,aTex t);
  301                sleep(aW ait);
  302              end;
  303         end;
  304       Applic ation.Proc essMessage s;
  305     end;
  306  
  307     procedur e GrowRigh t(aCanvas: TCanvas;aW ait:Intege r;
  308       aXMarg in,Y,aWidt h:Integer; aFColor:TC olor;aText :String);
  309     var
  310       iLen,i Width, iHe ight,
  311       i: int eger;
  312     begin
  313       with a Canvas do
  314         begi n
  315           Fo nt.Style : = [fsBold] ;
  316           iW idth := Te xtWidth(aT ext);
  317           iH eight := T extHeight( aText);
  318           Fo nt.Color : = aFColor;
  319           iL en := Min( iWidth, aW idth - aXM argin);
  320           fo r i := aXM argin to i Len do
  321              begin
  322                FillRect (Rect(aXMa rgin,y,i,y +iHeight)) ;
  323                TextRect (Rect(aXMa rgin,y,i,y +iHeight), aXMargin,y ,aText);
  324                sleep(aW ait);
  325              end;
  326         end;
  327     end;
  328  
  329     procedur e SlideRig ht(aCanvas :TCanvas;a Wait:Integ er;
  330       aXMarg in,Y,AwIDT H:Integer; aFColor:TC olor;aText :String);
  331     var
  332       iWidth , iHeight,
  333       i: int eger;
  334     begin
  335       with a Canvas do
  336         begi n
  337           Fo nt.Style : = [];
  338           iW idth := Te xtWidth(aT ext);
  339           iH eight := T extHeight( aText);
  340           Fo nt.Color : = aFColor;
  341           fo r i := aXM argin to a XMargin+iW idth do
  342              begin
  343                TextRect (Rect(aXMa rgin,y,i,y +iHeight), aXMargin,y ,aText);
  344                sleep(aW ait);
  345              end;
  346         end;
  347       Applic ation.Proc essMessage s;
  348     end;
  349  
  350     procedur e SlideLef t(aCanvas: TCanvas;aW ait:Intege r;
  351       aXMarg in,Y,aWidt h:Integer; aFColor:TC olor;aText :String);
  352     var
  353       iX,
  354       iLen,i Width, iHe ight,
  355       i: int eger;
  356     begin
  357       with a Canvas do
  358         begi n
  359           iL en := 0;
  360           Fo nt.Style : = [];
  361           iW idth := Te xtWidth(aT ext);
  362           iH eight := T extHeight( aText);
  363           Fo nt.Color : = aFColor;
  364           iX  := Max(aX Margin,aWi dth-iWidth -aXMargin) ;
  365           fo r i := aWi dth - aXMa rgin downt o iX do
  366              begin
  367                iLen :=  Min(iWidth ,aWidth -  aXMargin -  i);
  368                FillRect (Rect(i,y, i+iLen+2,y +iHeight)) ;
  369                TextRect (Rect(i,y, i+iLen,y+i Height),i, y,aText);
  370                if  (aWi dth-aXMarg in-i)> 0 t hen
  371                  begin
  372   //                 iT  := aWait* (aWidth-aX Margin-i)  div (aWidt h-aXMargin );
  373   //                 sl eep(iT*iT) ;
  374                      Sl eep(aWait) ;
  375                  end;
  376              end;
  377           Fi llRect(Rec t(iX,y,iX+ iLen+2,y+i Height));
  378           Fo nt.Style : = [];
  379           Te xtRect(Rec t(iX,y,iX+ iLen,y+iHe ight),iX,y ,aText);
  380         end;
  381       Applic ation.Proc essMessage s;
  382     end;
  383  
  384   begin
  385     Delay :=  70;
  386     if (Butt on = mbRig ht) and (s sShift in  Shift) and  (ssCtrl i n Shift) t hen
  387       begin
  388         pnlC omments.Vi sible := T rue;
  389         Imag e.Canvas.B rush.Color  := clSilv er;
  390         Imag e.Canvas.F illRect(Re ct(0,0,Ima ge.Width,  Image.Heig ht));
  391         i :=  10;
  392         Grow RightCente red(Image. Canvas,0,  Delay, i,I mage.Width ,clText,'I ntroducing  the Vital s V5.0 Dev elopment T eam:');
  393         Slid eRight(Ima ge.Canvas,  10, Delay , i+20,Ima ge.Width,c lText,'Jul ius Chou:' );
  394         Slid eLeft(Imag e.Canvas,  0, Delay,  i+20,Image .Width,clT ext,  'Pro gram Direc tor');
  395  
  396         Slid eRight(Ima ge.Canvas,  10, Delay , i+35,Ima ge.Width,c lText,'Bar bara Lang: ');
  397         Slid eLeft(Imag e.Canvas,  0, Delay,  i+35,Image .Width,clT ext,  'Pro ject Manag er');
  398  
  399         Slid eRight(Ima ge.Canvas, 10, Delay,  i+50,Imag e.Width,cl Text, 'Dan  Petit:');
  400         Slid eLeft(Imag e.Canvas,  0, Delay,  i+50,Image .Width,clT ext,  'GUI  Developme nt');
  401         Slid eLeft(Imag e.Canvas,  0, Delay,  i+65,Image .Width,clT ext,  'M D evelopment ');
  402  
  403         Slid eRight(Ima ge.Canvas, 10, Delay,  i+80,Imag e.Width,cl Text, 'And rey Andriy evskiy:');
  404         Slid eLeft(Imag e.Canvas,  0, Delay,  i+80,Image .Width,clT ext,  'GUI  Developme nt' );
  405  
  406         Slid eRight(Ima ge.Canvas, 10, Delay,  i+95,Imag e.Width,cl Text, 'Fra nk Traxler :');
  407         Slid eLeft(Imag e.Canvas,  0, Delay,  i+95,Image .Width,clT ext,  'M D evelopment ' );
  408  
  409         Slid eRight(Ima ge.Canvas, 10, Delay,  i+110,Ima ge.Width,c lText,'Mar lie Gaddie :');
  410         Slid eLeft(Imag e.Canvas,  0, Delay,  i+110,Imag e.Width,cl Text, 'Tec hnical Wri ter');
  411  
  412         Slid eRight(Ima ge.Canvas, 10, Delay,  i+125,Ima ge.Width,c lText,'Chr istine Lon g:');
  413         Slid eLeft(Imag e.Canvas,  0, Delay,  i+125,Imag e.Width,cl Text, 'Tec hnical Wri ter');
  414  
  415         Slid eRight(Ima ge.Canvas, 0, Delay,  i+140,Imag e.Width,cl Text, 'Cha rmaine Rez nik:');
  416         Slid eLeft(Imag e.Canvas,  0, Delay,  i+140,Imag e.Width,cl Text, 'SQA  Analyst') ;
  417  
  418         Slid eRight(Ima ge.Canvas,  10, Delay , i+155,Im age.Width, clText,'Na ncy Thornt on:');
  419         Slid eLeft(Imag e.Canvas,  0, Delay,  i+155,Imag e.Width,cl Text,  'NV S Release  Manager');
  420  
  421         slee p(7000);
  422         pnlC omments.Vi sible := F alse;
  423       end;
  424   end;
  425  
  426   procedure  TfrmGMV_Ab outDlg.For mKeyDown(S ender: TOb ject; var  Key: Word;
  427     Shift: T ShiftState );
  428   begin
  429     if Key =  VK_ESCAPE  then clos e;
  430   end;
  431  
  432   end.
  433