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

21.1 Files compared

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

21.2 Comparison summary

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

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

21.4 Active regular expressions

No regular expressions were active.

21.5 Comparison detail

  1   unit iGrid PanelIntf;
  2   {
  3     ======== ========== ========== ========== ========== ========== ========== ========== ==
  4     *
  5     *        Applicatio n:  CPRS -  Utiliies
  6              Developer:       PII                   
  7     *        Site:          Salt L ake City I SC
  8     *        Date:          2015-1 2-04
  9     *
  10     *        Descriptio n:  Main i nterface t o the comm on TGridPa nel utilie s and
  11     *                       method s.
  12     *
  13     *        Notes:         Provid es common  access via  GridPanel Functions  method.
  14     *
  15     ======== ========== ========== ========== ========== ========== ========== ========== ==
  16   }
  17  
  18   interface
  19  
  20   uses
  21     System.C lasses,
  22     System.S ysUtils,
  23     Vcl.Cont rols,
  24     Vcl.ExtC trls,
  25     Vcl.Form s,
  26     Vcl.Grap hics;
  27  
  28   type
  29     TGridPan elCollapse  = (gpcNon e, gpcRow,  gpcColumn );
  30  
  31     IGridPan elDisplay  = interfac e;
  32     IGridPan elControl  = interfac e;
  33     IGridPan elFrame =  interface;
  34     IGridPan elFunction s = interf ace;
  35  
  36     IGridPan elDisplay  = interfac e(IInterfa ce)
  37       ['{B10 67A53-DD6B -458D-B1A1 -9F8CCA851 BD3}']
  38       functi on getColu mnCollapse d(aIndex:  integer):  boolean;
  39       functi on getColu mnCount: i nteger;
  40       functi on getColu mnStyle(aI ndex: inte ger): TSiz eStyle;
  41       functi on getColu mnValue(aI ndex: inte ger): Doub le;
  42  
  43       functi on getRowC ollapsed(a Index: int eger): boo lean;
  44       functi on getRowC ount: inte ger;
  45       functi on getRowS tyle(aInde x: integer ): TSizeSt yle;
  46       functi on getRowV alue(aInde x: integer ): Double;
  47  
  48       proced ure setCol umnValue(a Index: int eger; cons t aValue:  Double);
  49       proced ure setCol umnStyle(a Index: int eger; cons t aValue:  TSizeStyle );
  50  
  51       proced ure setRow Value(aInd ex: intege r; const a Value: Dou ble);
  52       proced ure setRow Style(aInd ex: intege r; const a Value: TSi zeStyle);
  53  
  54       functi on AddColu mn(aSizeSt yle: TSize Style = ss Percent; a Value: Dou ble = 10.0 ): integer ;
  55       functi on AddCont rol(aContr ol: TContr ol; aCol:  integer; a Row: integ er; aAlign : TAlign):  boolean;
  56       functi on FindCon trol(aCont rol: TCont rol; var a Col: integ er; var aR ow: intege r): boolea n;
  57  
  58       proced ure AlignG rid;
  59       proced ure ClearG rid;
  60       proced ure Expand AllControl s;
  61  
  62       proced ure Collap seColumn(a Column: in teger); ov erload;
  63       proced ure Collap seColumn(a Control: T Control);  overload;
  64       proced ure Collap seRow(aRow : integer) ; overload ;
  65       proced ure Collap seRow(aCon trol: TCon trol); ove rload;
  66  
  67       proced ure Expand Column(aCo lumn: inte ger); over load;
  68       proced ure Expand Column(aCo ntrol: TCo ntrol); ov erload;
  69       proced ure Expand Row(aRow:  integer);  overload;
  70       proced ure Expand Row(aContr ol: TContr ol); overl oad;
  71  
  72       proper ty ColumnC ollapsed[a Index: int eger]: boo lean read  getColumnC ollapsed;
  73       proper ty ColumnC ount: inte ger read g etColumnCo unt;
  74       proper ty ColumnS tyle[aInde x: integer ]: TSizeSt yle read g etColumnSt yle write  setColumnS tyle;
  75       proper ty ColumnV alue[aInde x: integer ]: Double  read getCo lumnValue  write setC olumnValue ;
  76  
  77       proper ty RowColl apsed[aInd ex: intege r]: boolea n read get RowCollaps ed;
  78       proper ty RowCoun t: integer  read getR owCount;
  79       proper ty RowStyl e[aIndex:  integer]:  TSizeStyle  read getR owStyle wr ite setRow Style;
  80       proper ty RowValu e[aIndex:  integer]:  Double rea d getRowVa lue write  setRowValu e;
  81     end;
  82  
  83     IGridPan elControl  = interfac e(IInterfa ce)
  84       ['{0CF B3780-7AF7 -4A66-810E -2187D0E77 462}']
  85       functi on getGrid PanelDispl ay: IGridP anelDispla y;
  86  
  87       proced ure setGri dPanelDisp lay(const  aValue: IG ridPanelDi splay);
  88  
  89       proper ty GridPan elDisplay:  IGridPane lDisplay r ead getGri dPanelDisp lay write  setGridPan elDisplay;
  90     end;
  91  
  92     IGridPan elFrame =  interface( IGridPanel Control)
  93       ['{D04 C6393-9780 -4E28-B56C -36ADF49ED BAA}']
  94       functi on getAllo wCollapse:  TGridPane lCollapse;
  95       functi on getAllo wRefresh:  boolean;
  96       functi on getBack groundColo r: TColor;
  97       functi on getColl apsed: boo lean;
  98       functi on getTitl eFontColor : TColor;
  99       functi on getTitl eFontBold:  boolean;
  100       functi on getTitl e: string;
  101  
  102       proced ure setAll owCollapse (const aVa lue: TGrid PanelColla pse);
  103       proced ure setAll owRefresh( const aVal ue: boolea n);
  104       proced ure setBac kgroundCol or(const a Value: TCo lor);
  105       proced ure setTit leFontColo r(const aV alue: TCol or);
  106       proced ure setTit leFontBold (const aVa lue: boole an);
  107       proced ure setTit le(const a Value: str ing);
  108  
  109       proced ure OnExpa ndCollapse (Sender: T Object);
  110  
  111       proper ty AllowCo llapse: TG ridPanelCo llapse rea d getAllow Collapse w rite setAl lowCollaps e;
  112       proper ty AllowRe fresh: boo lean read  getAllowRe fresh writ e setAllow Refresh;
  113       proper ty Backgro undColor:  TColor rea d getBackg roundColor  write set Background Color;
  114       proper ty Collaps ed: boolea n read get Collapsed;
  115       proper ty TitleFo ntColor: T Color read  getTitleF ontColor w rite setTi tleFontCol or;
  116       proper ty TitleFo ntBold: bo olean read  getTitleF ontBold wr ite setTit leFontBold ;
  117       proper ty Title:  string rea d getTitle  write set Title;
  118     end;
  119  
  120     IGridPan elFunction s = interf ace(IInter face)
  121       ['{A88 21FA6-142B -4678-B7CE -D2AAF4E00 EAD}']
  122       functi on AddCove rSheetCont rol(aGridP anel: TGri dPanel; aC ontrol: TC ontrol; aC ol, aRow:  integer; a Align: TAl ign = alNo ne): boole an;
  123  
  124       functi on AddRow( aGridPanel : TGridPan el; aSizeS tyle: TSiz eStyle; aV alue: Doub le): integ er;
  125       functi on AddColu mn(aGridPa nel: TGrid Panel; aSi zeStyle: T SizeStyle;  aValue: D ouble): in teger;
  126       functi on AddCont rol(aGridP anel: TGri dPanel; aC ontrol: TC ontrol; aC ol, aRow:  integer; a Align: TAl ign = alNo ne): boole an;
  127  
  128       functi on AlignCo lumns(aGri dPanel: TG ridPanel):  boolean;
  129       functi on AlignRo ws(aGridPa nel: TGrid Panel): bo olean;
  130  
  131       functi on ClearGr id(aGridPa nel: TGrid Panel): bo olean;
  132  
  133       functi on GetCont ents(aGrid Panel: TGr idPanel; a Output: TS trings): i nteger;
  134       functi on GetSize StyleName( aSizeStyle : TSizeSty le): strin g;
  135  
  136       functi on Collaps eRow(aCont rol: TCont rol; aColl apsedHeigh t: integer ): boolean ;
  137  
  138       proced ure Format Rows(aGrid Panel: TGr idPanel; a Styles: ar ray of TSi zeStyle; a Values: ar ray of Dou ble);
  139     end;
  140  
  141   function G ridPanelFu nctions: I GridPanelF unctions;
  142   function N ewGridPane l(aOwner:  TComponent ; aColumns , aRows: i nteger; va r aGridPan el: TGridP anel): boo lean;
  143   function N ewGridPane lDisplay(a GridPanel:  TGridPane l; var aGr idPanelDis play): boo lean;
  144  
  145   implementa tion
  146  
  147   uses
  148     oGridPan elDisplay,
  149     oGridPan elFunction s;
  150  
  151   var
  152     fGridPan elFunction s: IGridPa nelFunctio ns;
  153  
  154   function G ridPanelFu nctions: I GridPanelF unctions;
  155   begin
  156     fGridPan elFunction s.QueryInt erface(IGr idPanelFun ctions, Re sult);
  157   end;
  158  
  159   function N ewGridPane l(aOwner:  TComponent ; aColumns , aRows: i nteger; va r aGridPan el: TGridP anel): boo lean;
  160   begin
  161     aGridPan el := TGri dPanel.Cre ate(aOwner );
  162     try
  163       aGridP anel.RowCo llection.C lear;
  164       aGridP anel.Colum nCollectio n.Clear;
  165  
  166       { Set  the rows }
  167       while  aGridPanel .RowCollec tion.Count  < aRows d o
  168         with  aGridPane l.RowColle ction.Add  do
  169           be gin
  170              SizeStyle  := ssPerce nt;
  171              Value := 1 0;
  172           en d;
  173  
  174       { Set  the column s }
  175       while  aGridPanel .ColumnCol lection.Co unt < aCol umns do
  176         with  aGridPane l.ColumnCo llection.A dd do
  177           be gin
  178              SizeStyle  := ssPerce nt;
  179              Value := 1 0;
  180           en d;
  181  
  182       { Defa ult settin gs }
  183       aGridP anel.ShowC aption :=  False;
  184       aGridP anel.TabSt op := Fals e;
  185       aGridP anel.Borde rStyle :=  bsNone;
  186       aGridP anel.Bevel Inner := b vNone;
  187       aGridP anel.Bevel Outer := b vNone;
  188       aGridP anel.Paren tColor :=  True;
  189       aGridP anel.Align  := alClie nt;
  190       Result  := True;
  191     except
  192       FreeAn dNil(aGrid Panel);
  193       Result  := False;
  194     end;
  195   end;
  196  
  197   function N ewGridPane lDisplay(a GridPanel:  TGridPane l; var aGr idPanelDis play): boo lean;
  198   begin
  199     Result : = TGridPan elDisplay. Create(aGr idPanel).G etInterfac e(IGridPan elDisplay,  aGridPane lDisplay);
  200   end;
  201  
  202   initializa tion
  203  
  204   TGridPanel Functions. Create.Get Interface( IGridPanel Functions,  fGridPane lFunctions );
  205  
  206   end.