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 | emailforward.pas | Wed Nov 1 18:09:20 2017 UTC |
2 | CAPRI_CIF.zip\CAPRI_CIF\Source | emailforward.pas | Wed Nov 1 19:07:59 2017 UTC |
Description | Between Files 1 and 2 |
|
---|---|---|
Text Blocks | Lines | |
Unchanged | 2 | 234 |
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 email forward; | |
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 | StdCtrls , | |
16 | ExtCtrls ; | |
17 | ||
18 | type | |
19 | TfrmForw ardingAddr ess = clas s(TForm) | |
20 | Label1 : TLabel; | |
21 | Label2 : TLabel; | |
22 | Edit1: TEdit; | |
23 | Button 1: TButton ; | |
24 | Label3 : TLabel; | |
25 | RadioB utton1: TR adioButton ; | |
26 | RadioB utton2: TR adioButton ; | |
27 | EditOt herEmailAd dress: TEd it; | |
28 | RadioB utton3: TR adioButton ; | |
29 | Label4 : TLabel; | |
30 | RadioB utton4: TR adioButton ; | |
31 | CCOWTi mer: TTime r; | |
32 | proced ure Button 1Click(Sen der: TObje ct); | |
33 | proced ure RadioB utton1Clic k(Sender: TObject); | |
34 | proced ure RadioB utton2Clic k(Sender: TObject); | |
35 | proced ure EditOt herEmailAd dressExit( Sender: TO bject); | |
36 | proced ure CCOWTi merTimer(S ender: TOb ject); | |
37 | proced ure FormAc tivate(Sen der: TObje ct); | |
38 | proced ure FormSh ow(Sender: TObject); | |
39 | private | |
40 | { Priv ate declar ations } | |
41 | public | |
42 | { Publ ic declara tions } | |
43 | end; | |
44 | ||
45 | var | |
46 | frmForwa rdingAddre ss: TfrmFo rwardingAd dress; | |
47 | ||
48 | implementa tion | |
49 | ||
50 | uses main; | |
51 | ||
52 | {$R *.DFM} | |
53 | ||
54 | procedure TfrmForwar dingAddres s.Button1C lick(Sende r: TObject ); | |
55 | begin | |
56 | modalres ult := mrO K; | |
57 | end; | |
58 | ||
59 | procedure TfrmForwar dingAddres s.RadioBut ton1Click( Sender: TO bject); | |
60 | begin | |
61 | editOthe rEmailAddr ess.Visibl e := False ; | |
62 | end; | |
63 | ||
64 | procedure TfrmForwar dingAddres s.RadioBut ton2Click( Sender: TO bject); | |
65 | begin | |
66 | editOthe rEmailAddr ess.Visibl e := True; | |
67 | end; | |
68 | ||
69 | procedure TfrmForwar dingAddres s.EditOthe rEmailAddr essExit(Se nder: TObj ect); | |
70 | var | |
71 | domain, domain2: s tring; | |
72 | ||
73 | begin | |
74 | if editO therEmailA ddress.tex t = '' the n begin | |
75 | if rad iobutton3. visible = true then begin | |
76 | edit OtherEmail Address.vi sible := F alse; | |
77 | radi obutton3.c hecked := true; | |
78 | exit ; | |
79 | end | |
80 | else b egin | |
81 | radi obutton1.c hecked := true; | |
82 | exit ; | |
83 | end; | |
84 | end; | |
85 | ||
86 | domain : = frmMain. Piece(edit OtherEmail Address.te xt, '@', 2 ); | |
87 | domain2 := frmMain .Piece(dom ain, '.', 2); | |
88 | //domain 3:=frmMain .Piece(dom ain,'.',3) ; | |
89 | if (uppe rcase(doma in) <> 'VA ') and (up percase(do main2) <> 'GOV') the n begin | |
90 | ShowMessag eCAPRI('Yo u can only send to a n e-mail a ddress tha t ends wit h "@ DOMAIN "'); | |
91 | editOt herEmailAd dress.setf ocus; | |
92 | end; | |
93 | end; | |
94 | ||
95 | procedure TfrmForwar dingAddres s.CCOWTime rTimer(Sen der: TObje ct); | |
96 | begin | |
97 | if Shutd ownCAPRIMo dalDialogs = true th en begin | |
98 | CCOWTi mer.Enable d := False ; | |
99 | frmFor wardingAdd ress.Visib le := Fals e; | |
100 | Contex torChangeM essage := ''; | |
101 | ModalR esult := m rCancel; | |
102 | end; | |
103 | end; | |
104 | ||
105 | procedure TfrmForwar dingAddres s.FormActi vate(Sende r: TObject ); | |
106 | begin | |
107 | CCOWTime r.Enabled := True; | |
108 | ||
109 | end; | |
110 | ||
111 | procedure TfrmForwar dingAddres s.FormShow (Sender: T Object); | |
112 | begin | |
113 | if (Scre enReaderAc tive = Tru e) then be gin | |
114 | Showme ssageCAPRI (Label1.Ca ption); | |
115 | end; | |
116 | end; | |
117 | ||
118 | end. |
Araxis Merge (but not the data content of this report) is Copyright © 1993-2016 Araxis Ltd (www.araxis.com). All rights reserved.