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.
# | 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 |
Description | Between Files 1 and 2 |
|
---|---|---|
Text Blocks | Lines | |
Unchanged | 2 | 152 |
Changed | 1 | 2 |
Inserted | 0 | 0 |
Removed | 0 | 0 |
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 |
No regular expressions were active.
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. |
Araxis Merge (but not the data content of this report) is Copyright © 1993-2016 Araxis Ltd (www.araxis.com). All rights reserved.