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

37.1 Files compared

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

37.2 Comparison summary

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

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

37.4 Active regular expressions

No regular expressions were active.

37.5 Comparison detail

  1   unit mCove rSheetDisp layPanel_W eb;
  2   {
  3     ======== ========== ========== ========== ========== ========== ========== ========== ==
  4     *
  5     *        Applicatio n:  Demo
  6              Developer:       PII                   
  7     *        Site:          Salt L ake City I SC
  8     *        Date:          2015-1 2-21
  9     *
  10     *        Descriptio n:  Web Br owser/Web  Page displ ay panel f or CPRS Co versheet.
  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     System.I mageList,
  26     SHDocVw,
  27     Vcl.Grap hics,
  28     Vcl.Cont rols,
  29     Vcl.Form s,
  30     Vcl.Dial ogs,
  31     Vcl.Menu s,
  32     Vcl.ImgL ist,
  33     Vcl.StdC trls,
  34     Vcl.Butt ons,
  35     Vcl.ExtC trls,
  36     Vcl.OleC trls,
  37     mCoverSh eetDisplay Panel,
  38     iCoverSh eetIntf;
  39  
  40   type
  41     TfraCove rSheetDisp layPanel_W eb = class (TfraCover SheetDispl ayPanel, I CoverSheet DisplayPan el)
  42       brwsr:  TWebBrows er;
  43       sbtnBa ck: TSpeed Button;
  44       pnlNav igator: TP anel;
  45       sbtnFo rward: TSp eedButton;
  46       edtURL : TEdit;
  47       sbtnGO : TSpeedBu tton;
  48       sbtnHo me: TSpeed Button;
  49       proced ure sbtnGO Click(Send er: TObjec t);
  50       proced ure edtURL KeyDown(Se nder: TObj ect; var K ey: Word;  Shift: TSh iftState);
  51       proced ure brwsrN avigateCom plete2(ASe nder: TObj ect; const  pDisp: ID ispatch; c onst URL:  OleVariant );
  52     private
  53       { Priv ate declar ations }
  54     protecte d
  55       { Inhe rited meth ods }
  56       proced ure setPar am(const a Value: ICo verSheetPa ram); over ride;
  57  
  58       proced ure OnRefr eshDisplay (Sender: T Object); o verride;
  59  
  60       { Intr oduced met hods }
  61       functi on WebPara ms: ICover SheetParam _Web; virt ual; final ;
  62     public
  63       { Publ ic declara tions }
  64       constr uctor Crea te(aOwner:  TComponen t); overri de;
  65     end;
  66  
  67   var
  68     fraCover SheetDispl ayPanel_We b: TfraCov erSheetDis playPanel_ Web;
  69  
  70   implementa tion
  71  
  72   {$R *.dfm}
  73  
  74   { TfraCove rSheetDisp layPanel_W eb }
  75  
  76   procedure  TfraCoverS heetDispla yPanel_Web .brwsrNavi gateComple te2(ASende r: TObject ; const pD isp: IDisp atch; cons t URL: Ole Variant);
  77   begin
  78     //
  79   end;
  80  
  81   constructo r TfraCove rSheetDisp layPanel_W eb.Create( aOwner: TC omponent);
  82   begin
  83     inherite d;
  84   end;
  85  
  86   procedure  TfraCoverS heetDispla yPanel_Web .edtURLKey Down(Sende r: TObject ; var Key:  Word; Shi ft: TShift State);
  87   begin
  88     if Key =  VK_RETURN  then
  89       sbtnGO Click(Send er);
  90   end;
  91  
  92   procedure  TfraCoverS heetDispla yPanel_Web .OnRefresh Display(Se nder: TObj ect);
  93   begin
  94     inherite d;
  95     if WebPa rams.ShowN avigator t hen
  96       //
  97     else
  98       brwsr. Navigate(W ebParams.H omePage);
  99   end;
  100  
  101   procedure  TfraCoverS heetDispla yPanel_Web .sbtnGOCli ck(Sender:  TObject);
  102   begin
  103     if edtUR L.Text <>  '' then
  104       brwsr. Navigate(e dtURL.Text );
  105   end;
  106  
  107   procedure  TfraCoverS heetDispla yPanel_Web .setParam( const aVal ue: ICover SheetParam );
  108   begin
  109     inherite d;
  110     pnlNavig ator.Visib le := WebP arams.Show Navigator;
  111   end;
  112  
  113   function T fraCoverSh eetDisplay Panel_Web. WebParams:  ICoverShe etParam_We b;
  114   begin
  115     getParam .QueryInte rface(ICov erSheetPar am_Web, Re sult);
  116   end;
  117  
  118   end.