22. EPMO Open Source Coordination Office Redaction File Detail Report

Produced by Araxis Merge on 5/10/2019 1:00:04 PM Eastern 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.

22.1 Files compared

# Location File Last Modified
1 CPRS_v32_64_P2.zip\OR_30_405V64_SRC.zip\Cover Sheet fCoverSheetDetailDisplay.pas Wed Apr 3 19:32:16 2019 UTC
2 CPRS_v32_64_P2.zip\OR_30_405V64_SRC.zip\Cover Sheet fCoverSheetDetailDisplay.pas Thu May 9 00:51:16 2019 UTC

22.2 Comparison summary

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

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

22.4 Active regular expressions

No regular expressions were active.

22.5 Comparison detail

  1   unit fCove rSheetDeta ilDisplay;
  2   {
  3     ======== ========== ========== ========== ========== ========== ========== ========== ==
  4     *
  5     *        Applicatio n:  CPRS -  Covershee t
  6              Developer:       PII                   
  7     *        Site:          Salt L ake City I SC
  8     *        Date:          ####-# #-##
  9     *
  10     *        Descriptio n:  Main f orm for di splaying d etail on c oversheet  items.
  11     *
  12     *        Notes:
  13     *
  14     ======== ========== ========== ========== ========== ========== ========== ========== ==
  15   }
  16  
  17   interface
  18  
  19   uses
  20     Winapi.W indows,
  21     Winapi.M essages,
  22     System.S ysUtils,
  23     System.V ariants,
  24     System.C lasses,
  25     Vcl.Grap hics,
  26     Vcl.Cont rols,
  27     Vcl.Form s,
  28     Vcl.Dial ogs,
  29     Vcl.StdC trls,
  30     Vcl.ExtC trls;
  31  
  32   type
  33     TfrmCove rSheetDeta ilDisplay  = class(TF orm)
  34       pnlOpt ions: TPan el;
  35       btnClo se: TButto n;
  36       memDet ails: TMem o;
  37       btnPri nt: TButto n;
  38       lblFon tSizer: TL abel;
  39     private
  40       { Priv ate declar ations }
  41     public
  42       { Publ ic declara tions }
  43     end;
  44  
  45   var
  46     frmCover SheetDetai lDisplay:  TfrmCoverS heetDetail Display;
  47  
  48   function R eportBox(a Text: TStr ings; aTit le: string ; aAllowPr int: boole an): boole an;
  49  
  50   implementa tion
  51  
  52   {$R *.dfm}
  53  
  54   { TfrmCove rSheetDeta ilDisplay  }
  55  
  56   function R eportBox(a Text: TStr ings; aTit le: string ; aAllowPr int: boole an): boole an;
  57   var
  58     aStr: st ring;
  59     aWidth:  integer;
  60     aCurWidt h: integer ;
  61     aMaxWidt h: integer ;
  62   begin
  63     with Tfr mCoverShee tDetailDis play.Creat e(Applicat ion.MainFo rm) do
  64       try
  65         memD etails.Lin es.Clear;
  66         memD etails.Scr ollBars :=  ssVertica l;
  67         aCur Width := 3 00;
  68         aMax Width := S creen.Widt h - 100;
  69         lblF ontSizer.F ont := mem Details.Fo nt;
  70         for  aStr in aT ext do
  71           be gin
  72              aWidth :=  lblFontSiz er.Canvas. TextWidth( aStr);
  73              if aWidth  > aCurWidt h then
  74                if aWidt h < aMaxWi dth then
  75                  aCurWi dth := aWi dth
  76                else
  77                  begin
  78                    aCur Width := a MaxWidth;
  79                    memD etails.Scr ollBars :=  ssHorizon tal;
  80                  end;
  81              memDetails .Lines.Add (aStr);
  82           en d;
  83         Capt ion := aTi tle;
  84         btnP rint.Visib le := aAll owPrint;
  85         Clie ntWidth :=  aCurWidth  + 50;
  86         Show Modal;
  87       finall y
  88         Free ;
  89       end;
  90     Result : = True;
  91   end;
  92  
  93   end.