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.
# | 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 |
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 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. |
Araxis Merge (but not the data content of this report) is Copyright © 1993-2016 Araxis Ltd (www.araxis.com). All rights reserved.