38. EPMO Open Source Coordination Office Redaction File Detail Report

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

38.1 Files compared

# Location File Last Modified
1 C:\AraxisMergeCompare\Pri_un\CPRS_32_P2_PCE\OR_30_405V60_SRC\Cover Sheet oCoverSheetParam.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.pas Fri Apr 12 13:42:22 2019 UTC

38.2 Comparison summary

Description Between
Files 1 and 2
Text Blocks Lines
Unchanged 2 206
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 oCove rSheetPara m;
  2  
  3   {
  4     ======== ========== ========== ========== ========== ========== ========== ========== ==
  5     *
  6     *        Applicatio n:  CPRS -  Covershee t
  7              Developer:       PII                   
  8     *        Site:          Salt L ake City I SC
  9     *
  10     *        Descriptio n:  Simple  object th at maintai ns the par ameters fo r any
  11     *                       CoverS heet panel .
  12     *
  13     *        Notes:
  14     *
  15     ======== ========== ========== ========== ========== ========== ========== ========== ==
  16   }
  17   interface
  18  
  19   uses
  20     System.C lasses,
  21     System.S ysUtils,
  22     Vcl.Cont rols,
  23     Vcl.Grap hics,
  24     iCoverSh eetIntf;
  25  
  26   type
  27     TCoverSh eetParam =  class(TIn terfacedOb ject, ICov erSheetPar am)
  28     private
  29       //
  30     protecte d
  31       fID: i nteger;
  32       fDispl ayCol: int eger;
  33       fDispl ayRow: int eger;
  34       fTitle : string;
  35  
  36       functi on getID:  integer;
  37       functi on getDisp layColumn:  integer;
  38       functi on getDisp layRow: in teger;
  39       functi on getTitl e: string;
  40  
  41       proced ure setDis playColumn (const aVa lue: integ er);
  42       proced ure setDis playRow(co nst aValue : integer) ;
  43       proced ure setTit le(const a Value: str ing);
  44  
  45       functi on NewCove rSheetCont rol(aOwner : TCompone nt): TCont rol; virtu al; abstra ct;
  46     public
  47       constr uctor Crea te;
  48       destru ctor Destr oy; overri de;
  49     end;
  50  
  51   implementa tion
  52  
  53   { TCoverSh eetParam }
  54  
  55   constructo r TCoverSh eetParam.C reate;
  56   begin
  57     inherite d Create;
  58     fID := 0 ;
  59     fDisplay Col := -1;
  60     fDisplay Row := -1;
  61     fTitle : = 'Base TC overSheetP aram';
  62   end;
  63  
  64   destructor  TCoverShe etParam.De stroy;
  65   begin
  66     inherite d;
  67   end;
  68  
  69   function T CoverSheet Param.getI D: integer ;
  70   begin
  71     Result : = fID;
  72   end;
  73  
  74   function T CoverSheet Param.getD isplayColu mn: intege r;
  75   begin
  76     Result : = fDisplay Col;
  77   end;
  78  
  79   function T CoverSheet Param.getD isplayRow:  integer;
  80   begin
  81     Result : = fDisplay Row;
  82   end;
  83  
  84   function T CoverSheet Param.getT itle: stri ng;
  85   begin
  86     Result : = fTitle;
  87   end;
  88  
  89   procedure  TCoverShee tParam.set DisplayCol umn(const  aValue: in teger);
  90   begin
  91     fDisplay Col := aVa lue;
  92   end;
  93  
  94   procedure  TCoverShee tParam.set DisplayRow (const aVa lue: integ er);
  95   begin
  96     fDisplay Row := aVa lue;
  97   end;
  98  
  99   procedure  TCoverShee tParam.set Title(cons t aValue:  string);
  100   begin
  101     fTitle : = aValue;
  102   end;
  103  
  104   end.