52. EPMO Open Source Coordination Office Redaction File Detail Report

Produced by Araxis Merge on 4/16/2019 12:20:47 PM 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.

52.1 Files compared

# Location File Last Modified
1 C:\AraxisMergeCompare\Pri_un\CPRS_32_P2_PCE\OR_30_405V60_SRC\Cover Sheet oCoverSheetParam_Web.pas Wed Dec 12 14:04:38 2018 UTC
2 C:\AraxisMergeCompare\Pri_re\CPRS v32 P2 PCE Standardization-redacted\CPRS_32_P2_PCE\OR_30_405V60_SRC\Cover Sheet oCoverSheetParam_Web.pas Fri Apr 12 13:42:26 2019 UTC

52.2 Comparison summary

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

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

52.4 Active regular expressions

No regular expressions were active.

52.5 Comparison detail

  1   unit oCove rSheetPara m_Web;
  2  
  3   {
  4     ======== ========== ========== ========== ========== ========== ========== ========== ==
  5     *
  6     *        Applicatio n:  CPRS -  CoverShee t
  7              Developer:       PII                   
  8     *        Site:          Salt L ake City I SC
  9     *        Date:          2015-1 2-04
  10     *
  11     *        Descriptio n:  Inheri ted from T CoverSheet Param this  parameter  holds
  12     *                       custom  items for  displayin g CPRS dat a in the C overSheet.
  13     *
  14     *        Notes:
  15     *
  16     ======== ========== ========== ========== ========== ========== ========== ========== ==
  17   }
  18   interface
  19  
  20   uses
  21     System.C lasses,
  22     System.S ysUtils,
  23     Vcl.Cont rols,
  24     oCoverSh eetParam,
  25     iCoverSh eetIntf;
  26  
  27   type
  28     TCoverSh eetParam_W eb = class (TCoverShe etParam, I CoverSheet Param_Web)
  29     private
  30       { Priv ate declar ations }
  31       fHomeP age: strin g;
  32       fShowN avigator:  boolean;
  33  
  34       functi on getHome Page: stri ng;
  35       functi on getShow Navigator:  boolean;
  36  
  37       proced ure setHom ePage(cons t aValue:  string);
  38       proced ure setSho wNavigator (const aVa lue: boole an);
  39     protecte d
  40       { Prot ected decl arations }
  41       functi on NewCove rSheetCont rol(aOwner : TCompone nt): TCont rol; overr ide;
  42     public
  43       { Publ ic declara tions }
  44       constr uctor Crea te(aInitSt r: string  = '');
  45     end;
  46  
  47   implementa tion
  48  
  49   uses
  50     mCoverSh eetDisplay Panel_Web,
  51     oDelimit edString;
  52  
  53   { TCoverSh eetParam_W eb }
  54  
  55   constructo r TCoverSh eetParam_W eb.Create( aInitStr:  string = ' ');
  56   begin
  57     inherite d Create;
  58     with New DelimitedS tring(aIni tStr) do
  59       try
  60         setT itle(GetPi eceAsStrin g(2, 'Mini -Browser') );
  61         fHom ePage := G etPieceAsS tring(3, ' http://www .google.co m');
  62         fSho wNavigator  := GetPie ceAsBoolea n(4, False );
  63       finall y
  64         Free ;
  65       end;
  66   end;
  67  
  68   function T CoverSheet Param_Web. getHomePag e: string;
  69   begin
  70     Result : = fHomePag e;
  71   end;
  72  
  73   function T CoverSheet Param_Web. getShowNav igator: bo olean;
  74   begin
  75     Result : = fShowNav igator;
  76   end;
  77  
  78   procedure  TCoverShee tParam_Web .setHomePa ge(const a Value: str ing);
  79   begin
  80     fHomePag e := aValu e;
  81   end;
  82  
  83   procedure  TCoverShee tParam_Web .setShowNa vigator(co nst aValue : boolean) ;
  84   begin
  85     fShowNav igator :=  aValue;
  86   end;
  87  
  88   function T CoverSheet Param_Web. NewCoverSh eetControl (aOwner: T Component) : TControl ;
  89   begin
  90     Result : = TfraCove rSheetDisp layPanel_W eb.Create( aOwner);
  91   end;
  92  
  93   end.