EmbeddedWB v14.66.5 Full Source for D5 - D2009

====================================== Version 14.66.5 - 21.12.2008 - by smot ====================================== * unit TEmbeddedWB.pas & IEParser.pas - DonloadInSilentMode had a typo. Changed to DownloadInSilentMode * unit TEmbeddedWB.pas - Fix: Visible Property doesn't work properly. IMPORTANT: When migrating your existing projects to the new version make sure that the Visible Property is set to True in the Object Inspector if you want TEmbeddedWB to be visible. - Fix: OnVisible Event is not fired. -> Solution: CM_VISIBLECHANGED handler added - Fix: Added DirectoryExists() for D5 in EwbCoreTools.pas - Fix: TEmbeddedWb is not focused when switching to another application and then Alt+Tab back - Fix: TEmbeddedWb is not focused again when opening another form/dialog and closing it again while EWB has the focus -> Solution: In FormWndProc: Catch WA_ACTIVE and WA_CLICKACTIVE to set Focus back to EWB if it is the active control) - Fix: TEmbeddedWb needs to be focused first before the mouse wheel can scroll the document -> Solution: Catching CM_MOUSEWHEEL in FormWndProc) - Fix: Clicking on TEmbeddedWb, doesn't make it the ActiveControl - Fix: OnEnter and OnExit Events don't work. -> Solution: Subclassed "Ineternet Explorer Server" and "ShellDocObj") Enable_HookChildWindows must be defined in EWB.inc -> {$DEFINE Enable_HookChildWindows} *Enabled by default* - Fix: Modified TEmbeddedWB.Go() to compile under D5 - Added: TEmbeddedWB.UnSelectAll; - Added: OnWindowStateChanged Event. Note: It is available only in Microsoft Windows XP Service Pack 2 (SP2) or later. * unit SHDocVw_EWB.pas - Added: unit OleCtrlsFix. USE_OleCtrlsFix must be defined in EWB.inc. {$IFDEF USE_OleCtrlsFix} *Disabled by default* // details: http://www.bsalsa.com/forum/showthread.php?t=361 * unit FavoritesListView.pas -Added: RefreshList method * unit EwbCore.pas Enabled the IProtectFocus interface (IE7) Moved the OnAllowFocusChange property to the published section. * Demos: - Added: Events Test Demo ===================================== = Version 14.66.4 - 10.11.2008 - by smot ====================================== * unit TEmbeddedWB.pas - Added: procedure ExecScript(WebBrowser: TEmbeddedWB; sExpression, sLanguage: string); {implemented in EWBTools.pas} - Added: function ExecScriptEx(WebBrowser: TEmbeddedWB; MethodName: string; ParamValues: array of const): OleVariant; {implemented in EWBTools.pas} - Added: private property Encoding to control stream encoding (only D2009), default: Encoding := TEncoding.Default; Usage example: EmbeddedWB1.Encoding := TEncoding.UTF8; EmbeddedWB1.LoadFromString(Memo1.Text); - Changed: LoadFromString, LoadFromWideString, LoadFromStrings (to support Encoding) - Changed: {$DEFINE USE_EwbMSHTMLEvents} to {$DEFINE Enable_EwbMSHTMLEvents} - Added 2 mouse events (Not yet working in D2005-D2009) property OnMouseLeave: TNotifyEvent read FOnMouseLeave write FOnMouseLeave; property OnMouseEnter: TNotifyEvent read FOnMouseEnter write FOnMouseEnter; - Added: directive {.$DEFINE Enable_MouseEvents} // Enable Mouse Events in TEmbeddedWB, disabled by default - Added: OnMessage Handler (which is in WndProc). Allows you to catch / modify events which come trough WndProc * unit EWBTools.pas - replaced FillForm() with a new one (http://www.bsalsa.com/forum/showthread.php?t=499) - Fix: Warnings W1044 Suspicious typecast of string to PAnsiChar (in proxy functions) * unit MSHTMLEvents.pas - Added: {$WARN SYMBOL_PLATFORM OFF} * unit EwbCoreTools.pas - Added: CharInSet function (for Delphi versions < D2009) * Packages: - Added: '..\Source\MSHTMLEvents.pas' * Demos: - Added: ExecScriptEx Demo - Updated: RightClick_Demo (corrections & simplification) * Renamed EWB.inc to EWB_Compilers.inc Created new EWB.inc with EmbeddedWB definitions =================================== Version 14.66.3 - by smot =================================== * unit EwbCore.pas - Change: "EnablesFormsAutoComplete" is set to True by default -> UserInterfaceOptions := [EnablesFormsAutoComplete]; * unit TEmbeddedWB.pas - Added SinkComponent to trap HTML Events (TMSHTMLHTMLDocumentEvents) - Addded conditional symbol USE_EwbMSHTMLEvents to Enable SinkComponent (enabled by default) - Added: New Type TUserAgentMode = (uaDefault, uaInternal, uaRegistry); uaDefault: use default IE UserAgent uaInternal: use custom UserAgent for EWB. uaRegistry: set custom UserAgent through registry, globally - Added: TProxySettings.FUserAgent - Added: TEmbeddedWB.RefreshProxy to Refresh Proxy settings during runtime. Usage: with EmbeddedWB1.ProxySettings do begin Address := .. Port := .. end; EmbeddedWB1.RefreshProxy; - Added: TEmbeddedWB.HScrollBarVisible : Boolean; // Returns True if the horizontal scrollbar is visible TEmbeddedWB.VScrollBarVisible : Boolean; // Returns True if the vertical scrollbar is visible Added: public function TEmbeddedWB.HScrollBarPosition : Integer; // Returns the horiz. scrollbar position public function TEmbeddedWB.VScrollBarPosition : Integer; // Returns the vertical scrollbar position - Added public function GetFieldValue(FieldName: string): string; * unit EWBTools.pas Added: procedure GetScrollbarVisibility(WebBrowser: TEmbeddedWB; var HScroll, VScroll: Boolean); Added: function GetScrollBarPosition(WebBrowser: TEmbeddedWB; var ScrollPos: TPoint): Boolean; Added: function GetFieldValue(OleObject: Variant; FieldName: string): string; * unit TIETravellog.pas Fix: Removed these 2 lines from TIETravelLog.Connect: - Embeddedwb.AssignEmptyDocument; - Embeddedwb.Wait; * Added unit MSHTMLEvents.pas for Event sinking. * Added a new Demo: Demos\EmbeddedWB Demos\MSHTML_Events to demonstrate SinkComponent * Split the Demos directory up into EmbeddedWB Demos, Various Demos, Archives =================================== Version 14.66.2 - by smot =================================== * General: - Moved the packages to the \Packages folder - Renamed ReadMe.txt to ReadMe_Install.txt * unit TEmbeddedWB.pas - Fix: Try...Except around DDEInitiate(WParam, LParam) // http://www.bsalsa.com/forum/showthread.php?t=609 - Fix: TEmbeddedWB.Go() fails when navigating to a local folder e.g. 'c:\' (tested with IE 8, XP SP3) - Fix: if DirectoryExists() = True then prefix 'file:///' - Fix: Corrected the URLS in TEmbeddedWB pointing to msdn. - Added: mUnknown to TMeasure * unit EwbCore.pas - Fix to TCustomEmbeddedWB.DoFilterMsg because of some issues with non-standard characters. // http://www.bsalsa.com/forum/showthread.php?t=763 - Fix: memory leak reported by akirabbq. OnAmbientPropertyChange(DISPID_AMBIEN T_DLCONTROL) http://www.bsalsa.com/forum/showthread.php?t=762 - Added: If a TPopUpMenu is assigned then the assigned TPopUpMenu is shown. DisabledPopupMenus := [rcmAll] must be set (in the Object Inspector) * Many small fixes and code cleanup =================================== Version 14.66.1 - by smot =================================== This version adds some constants for IE8, D2009 compatibility and includes some fixes / changes. * file EWB.inc: Added D2007, D2009 defines. {$IFDEF DELPHI_13_UP} {$ELSE} {$ENDIF} * EWBCore.pas: EnableThemes is set to True by default (I think this makes sense) -> UserInterfaceOptions := [EnableThemes]; * unit TEmbeddedWB.pas - Removed the Wait() in T