13. EPMO Open Source Coordination Office Redaction File Detail Report

Produced by Araxis Merge on 11/2/2017 7:18:07 AM 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.

13.1 Files compared

# Location File Last Modified
1 CAPRI_CIF.zip\CAPRI_CIF\Source frmWebDisplay.pas Wed Nov 1 18:09:36 2017 UTC
2 CAPRI_CIF.zip\CAPRI_CIF\Source frmWebDisplay.pas Wed Nov 1 18:46:31 2017 UTC

13.2 Comparison summary

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

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

13.4 Active regular expressions

No regular expressions were active.

13.5 Comparison detail

  1   unit frmWe bDisplay;
  2  
  3   interface
  4  
  5   uses
  6     Windows,
  7     Messages ,
  8     SysUtils ,
  9     Classes,
  10     Graphics ,
  11     Controls ,
  12     Forms,
  13     DialogsC APRI,
  14     Dialogs,
  15     //jcs -  d2006
  16     //NMURL,
  17     StdCtrls ,
  18     OleCtrls ,
  19     SHDocVw,
  20     ExtCtrls ,
  21     main;
  22  
  23   type
  24     TfrmWebF orm = clas s(TForm)
  25       Panel1 : TPanel;
  26       Button 1: TButton ;
  27       Button Submit: TB utton;
  28       Label1 : TLabel;
  29       EditZi p: TEdit;
  30       Panel2 : TPanel;
  31       WebBro wser1: TWe bBrowser;
  32       Label2 : TLabel;
  33       CCOWTi mer: TTime r;
  34       proced ure Button SubmitClic k(Sender:  TObject);
  35       proced ure Button 1Click(Sen der: TObje ct);
  36       proced ure CCOWTi merTimer(S ender: TOb ject);
  37       proced ure FormAc tivate(Sen der: TObje ct);
  38     private
  39       { Priv ate declar ations }
  40     public
  41       { Publ ic declara tions }
  42     end;
  43  
  44   var
  45     frmWebFo rm: TfrmWe bForm;
  46  
  47   implementa tion
  48  
  49   {$R *.DFM}
  50  
  51   procedure  TfrmWebFor m.ButtonSu bmitClick( Sender: TO bject);
  52   begin
  53     if editz ip.text <>  '' then
  54         frmWebForm .WebBrowse r1.Navigat e('http:// vaww.pssg. URL         /scripts/z ipdist.dll /zipdistan ce?ZCODE='  + EditZip .Text);
  55   end;
  56  
  57   procedure  TfrmWebFor m.Button1C lick(Sende r: TObject );
  58   begin
  59     modalRes ult := mrO K;
  60   end;
  61  
  62   procedure  TfrmWebFor m.CCOWTime rTimer(Sen der: TObje ct);
  63   begin
  64     if Shutd ownCAPRIMo dalDialogs  = true th en begin
  65       CCOWTi mer.Enable d := False ;
  66       frmWeb Form.Visib le := Fals e;
  67       Contex torChangeM essage :=  '';
  68       ModalR esult := m rCancel;
  69     end;
  70   end;
  71  
  72   procedure  TfrmWebFor m.FormActi vate(Sende r: TObject );
  73   begin
  74     CCOWTime r.Enabled  := True;
  75   end;
  76  
  77   end.