1 | //*************************************************************
|
---|
2 | // EWB.inc - Embedded Webbrowser definitions *
|
---|
3 | // *
|
---|
4 | // For Delphi 5, 6, 7 , 2005, 2006 & Turbo, *
|
---|
5 | // 2007, 2009 *
|
---|
6 | // Freeware unit *
|
---|
7 | // by *
|
---|
8 | // Eran Bodankin (bsalsa) *
|
---|
9 | // bsalsa@bsalsa.com *
|
---|
10 | // *
|
---|
11 | // Documentation and updated versions: *
|
---|
12 | // http://www.bsalsa.com *
|
---|
13 | //*************************************************************
|
---|
14 | {*******************************************************************************}
|
---|
15 | {
|
---|
16 |
|
---|
17 | LICENSE:
|
---|
18 |
|
---|
19 | THIS SOFTWARE IS PROVIDED TO YOU "AS IS" WITHOUT WARRANTY OF ANY KIND,
|
---|
20 | EITHER EXPRESSED OR IMPLIED INCLUDING BUT NOT LIMITED TO THE APPLIED
|
---|
21 | WARRANTIES OF MERCHANTABILITY AND/OR FITNESS FOR A PARTICULAR PURPOSE.
|
---|
22 | YOU ASSUME THE ENTIRE RISK AS TO THE ACCURACY AND THE USE OF THE SOFTWARE
|
---|
23 | AND ALL OTHER RISK ARISING OUT OF THE USE OR PERFORMANCE OF THIS SOFTWARE
|
---|
24 | AND DOCUMENTATION. [YOUR NAME] DOES NOT WARRANT THAT THE SOFTWARE IS ERROR-FREE
|
---|
25 | OR WILL OPERATE WITHOUT INTERRUPTION. THE SOFTWARE IS NOT DESIGNED, INTENDED
|
---|
26 | OR LICENSED FOR USE IN HAZARDOUS ENVIRONMENTS REQUIRING FAIL-SAFE CONTROLS,
|
---|
27 | INCLUDING WITHOUT LIMITATION, THE DESIGN, CONSTRUCTION, MAINTENANCE OR
|
---|
28 | OPERATION OF NUCLEAR FACILITIES, AIRCRAFT NAVIGATION OR COMMUNICATION SYSTEMS,
|
---|
29 | AIR TRAFFIC CONTROL, AND LIFE SUPPORT OR WEAPONS SYSTEMS. VSOFT SPECIFICALLY
|
---|
30 | DISCLAIMS ANY EXPRESS OR IMPLIED WARRANTY OF FITNESS FOR SUCH PURPOSE.
|
---|
31 |
|
---|
32 | You may use, change or modify the component under 4 conditions:
|
---|
33 | 1. In your website, add a link to "http://www.bsalsa.com"
|
---|
34 | 2. In your application, add credits to "Embedded Web Browser"
|
---|
35 | 3. Mail me (bsalsa@bsalsa.com) any code change in the unit
|
---|
36 | for the benefit of the other users.
|
---|
37 | 4. Please, consider donation in our web site!
|
---|
38 |
|
---|
39 | {*******************************************************************************}
|
---|
40 | {$A+,B-,C-,E-,F-,G+,H+,I+,J+,K-,L+,M-,N+,O+,P+,Q-,R-,S-,T-,U-,V+,W+,X+,Y+,Z1}
|
---|
41 |
|
---|
42 |
|
---|
43 | {$I EWB_jedi.inc}
|
---|
44 |
|
---|
45 | // Specify the modules to include:
|
---|
46 | // To remove the extras, just put a dot in front of the $DEFINE. E.g. "{.$DEFINE USE_EwbTools}"
|
---|
47 | // To include an extra, remove the dot.
|
---|
48 | // Then re-compile the package.
|
---|
49 |
|
---|
50 |
|
---|
51 | //---- EmbeddedWB.pas: ---------------------------------------------------------
|
---|
52 |
|
---|
53 | // ** Activated by default:
|
---|
54 |
|
---|
55 | // Use functions from EwbTools.pas as methods in EmbeddedWB
|
---|
56 | {$DEFINE USE_EwbTools}
|
---|
57 |
|
---|
58 | // Enable Subclassing of TEmbeddedWB Child windows (focus issues, ActiveControl, TAB and ActiveControl)
|
---|
59 | {$DEFINE Enable_SubClassChildWindows}
|
---|
60 |
|
---|
61 | // Enable Mouse Hook to catch WM_MOUSEWHEEL and set Focus on TEmbeddedWB while not active
|
---|
62 | {$DEFINE Enable_AutoMouseWheelFix}
|
---|
63 |
|
---|
64 | // Enable FocusControl to catch CM_ACTIVATE (EWB focus issue when switching back to the application)
|
---|
65 | {$DEFINE Enable_AutoFocusControl}
|
---|
66 |
|
---|
67 | // Enable FormWndProc "Hooking" to handle Dialog Boxes / Popups
|
---|
68 | {$DEFINE Enable_HookParentFormWndProc}
|
---|
69 |
|
---|
70 |
|
---|
71 | // ** Deactivated by default:
|
---|
72 |
|
---|
73 |
|
---|
74 | // Enable DDE Support EwbDDE.pas
|
---|
75 | {.$DEFINE USE_EwbDDE}
|
---|
76 |
|
---|
77 | // Enable MSHTML events (MSHTMLEvents.pas)
|
---|
78 | {.$DEFINE Enable_EwbMSHTMLEvents}
|
---|
79 |
|
---|
80 | // Enable Mouse (OnEnter, OnLeave) Events in TEmbeddedWB (D5, D6, D7 only)
|
---|
81 | {.$DEFINE Enable_MouseEnterLeaveEvents}
|
---|
82 |
|
---|
83 | // Enable OleCtrls Fix (experimental)
|
---|
84 | {.$DEFINE USE_OleCtrlsFix}
|
---|
85 |
|
---|
86 | // Enable Debugging
|
---|
87 | {.$DEFINE Enable_Debug}
|
---|
88 |
|
---|
89 |
|
---|
90 | //---- EwbCore.pas ---------------------------------------------------------
|
---|
91 |
|
---|
92 | {$DEFINE USE_IOLECOMMANDTARGET}
|
---|
93 |
|
---|
94 | {.$DEFINE GETKEYPATH_HANDLERS}
|
---|
95 |
|
---|
96 | {.$DEFINE RESEARCH_MODE}
|
---|
97 |
|
---|
98 | //-------------------------------------------------------------------------
|
---|
99 |
|
---|
100 |
|
---|
101 | //---- TEwbControl (EwbControlComponent.pas)-------------------------------
|
---|
102 |
|
---|
103 | // Enable Property InternetFeatures in the Object Inspector.
|
---|
104 | {$DEFINE Enable_InternetFeatures}
|
---|
105 |
|
---|
106 | //-------------------------------------------------------------------------
|
---|
107 |
|
---|
108 |
|
---|
109 | // Do not change:
|
---|
110 |
|
---|
111 | {$IFDEF Enable_AutoFocusControl}
|
---|
112 | {$DEFINE AutoUse_EwbControl}
|
---|
113 | {$ENDIF Enable_AutoFocusControl}
|
---|
114 |
|
---|
115 | {$IFDEF Enable_AutoMouseWheelFix}
|
---|
116 | {$DEFINE AutoUse_EwbControl}
|
---|
117 | {$ENDIF Enable_AutoMouseWheelFix}
|
---|