| [541] | 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} | 
|---|